OnMouseOver bei Listbox Items

[Keldorn]

Hallo

ich verwende diesen Code für ein Stringrid, er würde jede Zelle als hint anzeigen

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  MyRow, MyCol: Integer;
  oldhint:string;
begin
  oldhint:=StringGrid1.hint;
  StringGrid1.MouseToCell(x, y, MyCol, MyRow);
  if (MyRow<>-1) and (Mycol<>-1) then
    StringGrid1.hint:=StringGrid1.Cells[mycol,myrow]
   else
    StringGrid1.hint:='';

  if oldhint<>StringGrid1.hint then Application.CancelHint;
end;

er zeigt aber, was du machen mußt (application.cancelhint, sonst siehst du keinen neuen Hint).
Brauchst das nur an die listbox anpassen und mousetocell mit ItemAtPos auswechseln.

Mfg Frank