Fokuswechsel eines VCL Controls verhindern

[Stevie]

Hatte es auf Windows XP gethemed auch nicht. Und unter Windows 7 Classic Design auch nicht. Nur wenn Aero an ist.

Hab mal einen Workaround, den ich noch testen muss:

Delphi-Quellcode:

procedure TDateTimePicker.WMLButtonDown(var Message: TWMLButtonDown);
begin
  inherited;
  if not Focused then
    Perform(WM_KILLFOCUS, 0, 0);
end;