ListBox üzerinde gezinirken

[oguzozturk74]

ListBox üzerinde gezinirken mouse tıklamaksızın elemanların seçili görükmesi:

procedure TForm1.ListBox1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True);
end;