Listbox hint und onmousemove

[himitsu]

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)