VCL可视控件的鼠标拖动_系统

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