Wie bekommt man es hin, dass wenn man mit der Maus über ein Listboxitem fährt, sich die Farbe ändert?
Ich möchte eine sehr dezente Farbe nutzen, ein leichtes Grau.
Ratet ihr davon grundsätzlich ab oder gehört das schon zu Benutzerfreundlichkeit?
So weit bin ich, komme aber nicht weiter
Delphi-Quellcode:
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
Index: Integer;
Point: TPoint;
CCanvas: TCanvas;
begin
Point.X := X;
Point.Y := Y;
Index := TListBox(Sender).ItemAtPos(Point, True);
if Index > -1 then
begin
CCanvas := TListBox(Sender).Canvas;
CCanvas.Brush.Color := clRed;
end;
end;