Einzelnen Beitrag anzeigen

Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#4

Fokusrahmen entfernen

  Alt 10. Apr 2007, 06:38
Um den Fokusrahmen zu entfernen musst Du die Items selber Zeichnen, und diesen Trick anwenden:

Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   With TListBox(Control) do begin
      Canvas.FillRect(Rect);

      // Text zeichnen

      If (odFocused in State) then
         DrawFocusRect(Canvas.Handle, Rect);
   end;
end;
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat