OnMouseOver bei Listbox Items

[Synonym]

Hi,


ich würde gerne, wenn man mit der Maus über ein Item einer Listbox fährt einen Hint oder eine Beschreibung dazu anzeigen...

Wie kann ich das realisieren?

Synonym

[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

[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 :drunken: - nochmal alles geändert [/edit 1001]

[Keldorn]

auch ausprobiert? ;)

Delphi-Quellcode:

idx := round(y div itemheight);

deine Chancen auf das richtige Item bei einer gescrollten Listbox sind gering.
richtiger wäre listbox1.itematpos(...);

edit:
if hint <> oh then application.CancelHint würd ich ans ende setzen, kannst du probieren, wenn du über dem letztem item und dem unteren rand bist


Mfg Frank