DateTimePicker; OnChange-Ereignis automatisch 2 mal???

[himitsu]

So sollte es auch ganz gut gehn und nebenbei ein nettes Beispiel, wofür Tag gut sein kann

Delphi-Quellcode:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  if DateTimePicker1.Tag = Trunc(DateTimePicker1.Date) then exit;
  DateTimePicker1.Tag := Trunc(DateTimePicker1.Date);
  Showmessage(datetostr(DateTimePicker1.Date));
end;

[add]
@Shaman
das NOT ist doch wohl nicht nötig?
einfach mal das Zeug vor und nach dem ELSE tauschen

und man glaubt's nicht, aber mann kann massig Variablen einsparen, wenn man mal ein bissl mit Hilfe von Typenumwandlung rumspielt http://FNSE.de/S0AN.gif

Delphi-Quellcode:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  if LongBool(DateTimePicker1.Tag) then
    DateTimePicker1.Tag := Integer(False)
  else begin
    ShowMessage('Change');
    DateTimePicker1.Tag := Integer(DateTimePicker1.DroppedDown);
  end;
end;