OnMouseOver bei Listbox Items

[chris]

hi,

habs schnell für ne listbox gemacht:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  idx: integer;
  olh: string;
begin
  with listbox1 do
    begin
      olh := hint;
      idx := itematpos(point(x, y), false);
      if (idx <= items.count - 1) then hint := items.strings[idx]
      else hint := '';
      if hint <> olh then application.cancelhint
    end
end;

[edit 1001] junge, junge ... war echt neben mir - nochmal alles geändert [/edit 1001]