我想要TDateTimePicker 元件一開始是空白的，等按了它後再出現日期，可能嗎?

HI, 可以利用 format 屬性來做, 如下:    

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  DateTimePicker1.Format := '';
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Format := ' ';
end;

timhuang兄，可是我try 了一下，DateTimePicker1好像沒有Format

您好﹗    DateTimePicker元件有Format屬性﹐其作用為顯示的格式﹐您可在設計時期DateTimePicker元件的屬性欄位中看到這個Format屬性﹒    timhuang前輩的做法可用﹐在Form的OnCreate事件中把DateTimePicker元件的Format屬性設為' '﹐即空格格式﹐在Form元件Create的時候﹐DateTimePicker元件中就不會顯示任何值﹐您也可將此句程式碼寫在Form的OnActivate事件中﹒    然后在DateTimePicker元件的OnChange事件中把DateTimePicker元件的Format屬性設為''﹐即空字串格式（無空格）﹐在DateTimePicker元件的值更改時﹐就會顯示出正常的日期/時間值了﹒    參考看看﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

Hi favinj123您好: 參考這篇: http://bdn.borland.com/article/0,1410,28214,00.html

Uses CommCtrl;    DateTime_SetFormat(DateTimePicker1.Handle, 'gg');

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

我用的是delphi 5，可是我的DateTimePicker真的找不到format，無法run。

Copied from ComCtrls.pas in Delphi 7:    

procedure TDateTimePicker.SetFormat(const Value: String);
begin
  if FFormat <> Value then
  begin
    FFormat := Value;
    SendMessage(Handle, DTM_SETFORMAT, 0 , Integer(PChar(FFormat)));
  end;
end;

So the message you need is DTM_SETFORMAT.