item listbox per mousemove auswaehlen

[Sir Rufo]

Gefunden indem ich nach ListBox1 den Punkt getippt und mir die Methoden angesehen habe

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer );
begin
  ListBox1.ItemIndex := ListBox1.ItemAtPos(
  {Pos} TPoint.Create( X, Y ),
  {Existing} True );
end;