请问怎样自定义 TDateTimePicker 的显示格式？

Question

Edit1.Text := FormatDateTime('YYYY"年"MM"月"DD"日"HH"小时"NN"分钟"',Date+Time);

Answer 1

我是要 在 TDateTimePickr 上显示！！！！

Answer 2

同意严黎斌的说法可以在控制面版上改，如果你只是显示一下的话可以使用一条消息：
DTM_SETFORMATunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls,Commctrl;type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  sFormat : string;
begin
  sFormat := 'yyy年MM月dd日 HH:mm'    ;
  SendMessage(DateTimePicker1.handle,DTM_SETFORMAT,0,Integer(PChar(sFormat)));
end;end.但是这个程序是不能修改时间的，不过日期可以修改。如果想获得其它的功能可以去看一下MSDN中关于DTM_消息的帮助。
    希望对你有所帮助

Answer 3

如果你想连时间也能修改，可以用一将ParseInput属性设为True，然后在OnUserInput事件中处理输入。

Answer 4

这不是我想要的，我要的是 vc的 SetFormat,它可以直接在 DateTimePicker上显示：
"今天是：2001年5月不知几号 21:23:24".