JZTXT

VCL可视控件的鼠标拖动

发布时间 2023-11-22 16:05:14作者: 涂磊

procedure TForm2.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  releaseCapture;
  ListBox1.Perform(WM_SYSCOMMAND,SC_MOVE+1,0);
end;