摘要： procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var s:tpoint; begin s.X:=x; s.Y:=y; Label1.Caption:= listbox1. 阅读全文