...TListBox Items markieren während sich die Maus bewegt?

Autor: Babak Sateli
Homepage: http://www.cdcenterco.com

Kategorie: VCL

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  
p: TPoint;
begin
  
p.x := x;
  p.y := y;
  ListBox1.ItemIndex := ListBox1.ItemAtPos(P, True);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base