Hallo,
deine Lösung klappt leider auch nicht.
(Das ProcessMessages und Sleep war auch ein Test)
Delphi-Quellcode:
procedure TForm1.OnOK;
begin
Self.SetFocus;
Application.ProcessMessages;
Sleep(200);
DateTimePicker1.SetFocus;
DateTimePicker1.Refresh;
ShowMessage(DateToStr(Int(DateTimePicker1.Date)));
end;
Die einzige, unbefriedigende Lösung ist,
das KeyPreview rauszunehmen und nur den OK-Knopf zu erlauben ;(
Heik