Einzelnen Beitrag anzeigen

chris

Registriert seit: 24. Mai 2003
Ort: Düsseldorf
196 Beiträge
 
Delphi 2009 Professional
 
#3

Re: OnMouseOver bei Listbox Items

  Alt 5. Feb 2004, 20:22
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]
Chris
D2009.4 | Vista SP2 x32
  Mit Zitat antworten Zitat