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]