将lazarus\lcl\editbtn.pas的1677、1678原来的/改为-,然后重新编译lazarus就可以。
procedure TDateEdit.SetDateMask; Var S : String; D : TDateTime; begin Case DateOrder of doNone : begin S:=''; // no mask FFixedDateFormat:=''; end; doDMY, doMDY : begin S:='99/99/9999;1;_'; if DateOrder=doMDY then FFixedDateFormat:='mm/dd/yyyy' else FFixedDateFormat:='dd/mm/yyyy'; end; doYMD : begin S:='9999-99-99;1;_'; FFixedDateFormat:='yyyy-mm-dd'; end; end; D:=GetDate; EditMask:=S; SetDate(D); end;
修正后的: