Delphi中形状移动的实现

在Delphi中，常常需要实现对形状的移动，本文将介绍如何在Delphi中实现形状移动，让你的应用更加灵活。

准备工作

在开始实现形状移动之前，需要准备工作，在窗口中添加一个TPaintBox用于绘制形状，并且需要在窗口的OnMouseDown和OnMouseMove事件中实现鼠标按下与鼠标移动时形状的移动。

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    FShape: TShape;
    FStartPoint: TPoint;
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FShape := TShape.Create(Self);
  FShape.Parent := PaintBox1;
  FShape.Shape := stRectangle;
  FShape.Width := 100;
  FShape.Height := 100;
  FShape.Brush.Color := clRed;
  FShape.Pen.Color := clBlack;
end;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FStartPoint := Point(X, Y);
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
  begin
    FShape.Left := FShape.Left + X - FStartPoint.X;
    FShape.Top := FShape.Top + Y - FStartPoint.Y;
  end;
end;

实现形状移动

在上面的准备工作中，我们已经完成了形状的绘制以及鼠标按下和鼠标移动事件的处理，现在需要在鼠标移动事件中实现形状移动。

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
  begin
    FShape.Left := FShape.Left + X - FStartPoint.X;
    FShape.Top := FShape.Top + Y - FStartPoint.Y;
  end;
end;

在鼠标移动事件中，首先判断鼠标左键是否按下，如果按下，则获取当前鼠标的位置，计算出鼠标移动的距离，然后将形状的位置增加移动的距离，即可实现形状的移动。

至此，我们已经完成了Delphi中实现形状移动的所有操作。

总结

本文介绍了如何在Delphi中实现形状移动，首先需要在窗口中加入一个TPaintBox用于绘制形状，并且需要在窗口的OnMouseDown和OnMouseMove事件中实现鼠标按下与鼠标移动时形状的移动。通过本文的介绍，相信读者已经掌握了Delphi中实现形状移动的方法。