TDateTimePicker leeren

[nahpets]

Hallo,

wie wäre es mit:

Delphi-Quellcode:

procedure TForm1.DateTimePicker1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Case key of
    46 : DateTimePicker1.Format := ' ';
  else
    DateTimePicker1.Format := '';
  end;
end;

im OnKeyUp-Ereignis?
46 = Entfernetaste