1:
Delphi-Quellcode:
ItemIndex{Integer} := ListBox.ItemAtPos(MausPos{TPoint}, True);
Procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var ItemIndex: Integer;
Begin
ItemIndex{Integer} := ListBox1.ItemAtPos(Point(X, Y), True);
...
End;
2: keine Ahnung (ich brauch das Selbe für StringGrid)