在你的窗体中加入Datetimepicker组件,并使用"Commctrl"单元。
然后试一试下面的程序:
procedure TForm1.Button2Click(Sender: TObject);
Var
DFormat : String;
begin
DFormat := ''dd-MM-yyyy''; //小心: "MM"是大写字母
DateTimePicker1.Perform ( DTM_SETFORMAT , DWORD(NIL) , DWORD(DFormat) );
{
//试一试以下这些格式:
DFormat := ''dd-MMM-yyyy'';
DFormat := ''dd-MMMM-yyyy'';
DFormat := ''dd-MMMM-yyyy'';
DFormat := ''HH:mm'';
DFormat := ''hh:mm tt'';
DFormat := ''dd-MMM-yyyy'';
DFormat := ''dd-MM-yyyy HH:mm'';
}
end;
以前有这样的问题。
是日期格式的引起问题