Hau ein Panel auf die Form, "BevelOuter" auf bvNone stellenund folgenden Code benutzen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.SetFocus;
end;
Aber Borland bzw. MS hat sich schon was dabei gedacht, das man sieht wo der Fokus ist...