Очистить дату в TDateTimePicker

← →
Pack (2006-07-07 14:13) [0]

Скажите как это сделать, возможно ли это сделать ?

← →
Elen © (2006-07-07 14:54) [1]

> Скажите как это сделать, возможно ли это сделать

А зачем это?

← →
Jeer © (2006-07-07 15:06) [2]

А какая, по твоему, дата является "очищенной" ?
С момент Большого взрыва ?

← →
from kz (2006-07-07 15:09) [3]

uses
CommCtrl;

var
FDTMDateEmpty: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
DateTime_SetFormat(DateTimePicker1.Handle, """Choose a date""");
FDTMDateEmpty := True;
end;

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
DateTime_SetFormat(DateTimePicker1.Handle, PChar("dd.MM.yy"));
end;

procedure TForm1.DateTimePicker1Click(Sender: TObject);
begin
if FDTMDateEmpty then
begin
DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
end;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
FDTMDateEmpty := False;
end;

← →
Pack (2006-07-07 15:22) [4]

2 Jeer
Чтобы текст был = " ";

← →
easy © (2006-07-07 15:59) [5]

DateTimePicker1.Format:=" ";

2 Pack (07.07.06 14:13)
В EhLib есть такой контрол

> > Скажите как это сделать, возможно ли это сделать
>
> А зачем это?

Мы все учились по немногу, чему нибудь и как нибудь (С) :)

Очистить дату в TDateTimePicker Найти похожие ветки