Listbox hint und onmousemove

[hackyie]

Hihow,

also 2 kleine Listbox-Probleme:

1.: Ich möchte, dass wenn man mit der Maus über ein Listbox-Item fährt, eine zweite Liste mit UNtereinträgen aufgeht. Wie komme ich am schnellsten von den Mauskoordinaten in der onMouseMove zum itemindex des Listbox-Eintrags, über dem die Maus gerade ist?

2.: Und für lange einträge möchte ich, dass beim onMousemove jedesmal beim Überfahren eines Items ein hint erscheint mit dem vollen String. Nun, die hint-eigenschaft zu setzen ist kein Problem aber man müsste den auch irgendwie manuell anzeigen können, sonst müsste der user ja immer wieder mit der Maus raus und wieder rein...

[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)

[hackyie]

yay....funzt. Danke!