Mega Code Archive

 

Categories / Delphi / VCL

 

Listbox itematpos functionu

// bir adet listbox // alanları doldurun // mouse listbox içinde hareket ettirin up ve down tuşları gibi çalışıyor.. procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True); end;