Hallo Nadja,
meine Kunden mögen den DateTimePicker nicht. Im Erfassungsdialog muss ich Edit-Felder verwenden. Ich färbe das Feld beim Erfassen ein, wenn die Eingabe nicht korrekt ist. Der OkButton schließt den modalen Erfassungsdialog nur, wenn alle Eingaben akzeptabel sind:
Delphi-Quellcode:
procedure TDetailDialog.DateEditChange(Sender: TObject);
var
dt: TDateTime;
begin
with Sender as TEdit do
begin
Tag := 1 - Ord((Text = '') or TryStrToDate(Text, dt));
if Odd(Tag)
then Color := clRed
else Color := clWindow;
end;
end;
procedure TDetailDialog.OkButtonClick(Sender: TObject);
begin
if Odd(DateEdit.Tag)
then ShowMessage('Datum ungültig')
else ModalResult := mrOK;
end;
Grüße vom marabu