请问鼠标拖动的两个事件，什么时候发生，具体怎么用？在线

Question

最好有点代码例子，谢了

Answer 1

下面是一段不用标题栏移动窗体的代码：
var
  MoveEn: Boolean;
  XY: TPoint;
  
Procedure TForm1.Form1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
  If button = mbLeft Then
    Begin
      MoveEn := true;
      xy.x := x;
      xy.y:= y;
    End;
End;Procedure TForm1.Form1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
Begin
  If MoveEn Then
    Begin
      self.Left := self.Left + (x - xy.x);
      self.Top := self.Top + (y - xy.y);    End;
End;Procedure TForm1.Form1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
  moveen := false;
End;