Скачать: CL | DM;

Очистить дату в 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:=" ";

---

← →
Fay ©   (2006-07-07 17:51) [6]

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

---

← →
Alien1769 ©   (2006-07-07 19:25) [7]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c