Fokuswechsel eines VCL Controls verhindern

[Stevie]

Wie kann ich einen Fokuswechsel aus einem Control heraus verhindern? Dabei ist wichtig, dass das Control das selber verhindern kann.

Ich hab mir mal das CMExit genommen und dort ein SetFocus reingesetzt. Das funktioniert auch augenscheinlich wenn man mit Tab das nächste Control anspringen will. Allerdings nicht, wenn ich explizit mit der Maus in ein anderes Control hineinklicke, zumindest nicht auf Windows 7, auf Windows XP sah auch das ganz gut aus.

[Union]

Könnte man nicht WM_KILLFOCUS abfangen? Oder so:

Delphi-Quellcode:

procedure TForm5.Edit1Exit(Sender: TObject);
begin
  TWinControl(Sender).SetFocus;
end;

[Stevie]

Scheint, es handelt sich dabei um ein TDateTimePicker spezifisches Problem. Ich hab 2 davon, und bei dem einen will ich verhindern, dass der Fokus verloren geht, wenn kein gültiges Datum eingetragen ist. Klicke ich nun auf den anderen Picker, bekommt der irgendwie den Fokus. Klicke ich auf ein Edit oder einen Button, bekommen diese Controls erwartungsgemäß nicht den Fokus.

Ganz einfach nachzustellen:
Edit und DateTimePicker auf die Form. Ins OnExit des Edits ein Edit1.SetFocus und dann auf den DateTimePicker klicken.

Nachtrag: Scheint sich um ein optisches Problem zu handeln. Das Edit hat weiterhin den Fokus. Im DateTimePicker ist aber der Text als markiert gezeichnet.

[Union]

Bei mir nicht. Allerdings XP ungethemed, vielleicht liegt es daran?

[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;

[Union]

Auf den ersten Blick sollte das inherited vielleicht ans Ende.

[Stevie]

Zitat:

Zitat von Union (Beitrag 1128457)

Auf den ersten Blick sollte das inherited vielleicht ans Ende.

Nope, erst muss das ButtonDown abgearbeitet, dann der Focus gelöscht werden.

[Union]

Geht ein diesem Zusammenhang nicht PeekMessage mit PM_REMOVE?