Naja... ich habe das mit Panels...... ich zeiche den um Panels....
zur zeit verwende ich den folgenden Code zum Zeichen des Rects:
Delphi-Quellcode:
procedure TfmPool.SelectObject(Sender: TObject);
var
DWDC: DWORD;
begin
DWDC := GetDC((Sender as TPanel).Handle);
try
if Sender is TPanel then
begin
with (Sender as TPanel) do
begin
SetFocus;
DrawFocusRect(DWDC,(Sender as TPanel).ClientRect);
end;
end;
finally
ReleaseDC((Sender as TPanel).Handle,DWDC);
end;
end;