DateTimePicker; OnChange-Ereignis automatisch 2 mal???

[Shaman]

So sollte es auch gehen:

Delphi-Quellcode:

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

Gruss
Shaman