Keinen Rahmen wenn Objekt den Focus hat?

[Christian Seehase]

Moin Sharky,

es muss die Position übergeben werden.
Mal ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  dwDC : DWORD;

begin
  dwDC := GetDC(Self.Handle);
  try
    DrawFocusRect(dwDC,self.ClientRect);
  finally
    ReleaseDC(Self.Handle,dwDC);
  end;
end;