Mega Code Archive

 

Categories / Delphi / VCL

 

Tlistboxda kullanicinin mouse ile uzerinde bulundugu elemana gore ipucunun gosterilmesi

{ ListBox1'in ShowHint ozelligini True yapin. } procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var p:TPoint; begin p.x:=x; p.y:=y; ListBox1.Hint:=ListBox1.Items[ListBox1.ItemAtPos(P,True)]; Application.ActivateHint(P); end;