Keinen Rahmen wenn Objekt den Focus hat?

[Sharky]

Hai Christian,

leider schaffe ich es trotzdem nicht
Wenn ich es so versuche passiert überhaupt nichts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Trackbar1.SetFocus;
  DrawFocusRect(TrackBar1.Handle,TrackBar1.ClientRect);
end;

Wenn ich dein Beispiel verwende zeichnet er mir, so wie erwartet, einen FocusRect um meine gesamte TForm.