Und etwas Code von Luckie bevor gefargt wird, wie man das benutzt:
Da hilft meist etwas in der Hilfe stöbern:
Delphi-Quellcode:
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pt: TPoint;
begin
pt.X := X;
pt.Y := Y;
Label1.Caption := IntToStr(Listbox1.ItemAtPos(pt, True));
end;
[/delphi]