下面介绍如何在应用程序运行时使用鼠标拖动和调整控件大小（在Delphi窗体上）。

运行时的表单编辑器

在窗体上放置控件（可视组件）后，可以调整其位置、大小和其他设计时特性。但是，在某些情况下，您必须允许应用程序的用户在运行时重新定位表单控件并更改其大小。

要使用鼠标在窗体上启用运行时用户移动和调整控件大小，需要对三个与鼠标相关的事件进行特殊处理：OnMouseDown、OnMouseMove和OnMouseUp。

理论上，假设您希望用户能够在运行时使用鼠标移动（和调整）按钮控件。首先，处理OnMouseDown事件，使用户能够“抓取”按钮。接下来，OnMouseMove事件应该重新定位（移动、拖动）按钮。最后，OnMouseUp应该完成移动操作。

在实践中拖动和调整窗体控件的大小

首先，在表单上放置几个控件。选中复选框以启用或禁用在运行时移动和调整控件大小。

接下来，定义三个过程（在表单声明的接口部分），它们将处理如上所述的鼠标事件：

type TForm1 = class(TForm) ... procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private inReposition : boolean; oldPos : TPoint;

注：需要两个表单级变量来标记控件是否正在移动（inReposition）和存储控件旧位置（oldPos）。

在窗体的OnLoad事件中，将鼠标事件处理过程分配给相应的事件（对于那些您希望可拖动/可调整大小的控件）：

procedure TForm1.FormCreate(Sender: TObject); begin Button1.OnMouseDown := ControlMouseDown; Button1.OnMouseMove := ControlMouseMove; Button1.OnMouseUp := ControlMouseUp; Edit1.OnMouseDown := ControlMouseDown; Edit1.OnMouseMove := ControlMouseMove; Edit1.OnMouseUp := ControlMouseUp; Panel1.OnMouseDown := ControlMouseDown; Panel1.OnMouseMove := ControlMouseMove; Panel1.OnMouseUp := ControlMouseUp; Button2.OnMouseDown := ControlMouseDown; Button2.OnMouseMove := ControlMouseMove; Button2.OnMouseUp := ControlMouseUp; end; (*FormCreate*)

注意：上面的代码启用了Button1、Edit1、Panel1和Button2的运行时重新定位。

最后，这里是神奇的代码：

procedure TForm1.ControlMouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (chkPositionRunTime.Checked) AND (Sender is TWinControl) then begin inReposition:=True; SetCapture(TWinControl(Sender).Handle); GetCursorPos(oldPos); end; end; (*ControlMouseDown*)

ControlMouseDown简言之：一旦用户在控件上按下鼠标按钮，如果启用了运行时重新定位（选中复选框chkPositionRunTime），并且接收到鼠标按下的控件甚至是从TWinControl派生的，则标记控件重新定位正在进行（inReposition:=True）并确保为控件捕获了所有鼠标处理，以防止处理默认的“单击”事件。

procedure TForm1.ControlMouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer); const minWidth = 20; minHeight = 20; var newPos: TPoint; frmPoint : TPoint; begin if inReposition then begin with TWinControl(Sender) do begin GetCursorPos(newPos); if ssShift in Shift then begin //resize Screen.Cursor := crSizeNWSE; frmPoint := ScreenToClient(Mouse.CursorPos); if frmPoint.X > minWidth then Width := frmPoint.X; if frmPoint.Y > minHeight then Height := frmPoint.Y; end else //move begin Screen.Cursor := crSize; Left := Left - oldPos.X + newPos.X; Top := Top - oldPos.Y + newPos.Y; oldPos := newPos; end; end; end; end; (*ControlMouseMove*)

ControlMouseMove简而言之：更改屏幕光标以反映操作：如果按下Shift键，则允许控件调整大小，或者只需将控件移动到新位置（鼠标移动的位置）。注意：minWidth和minHeight常量提供了一种大小约束（最小控件宽度和高度）。

松开鼠标按钮后，拖动或调整大小即告结束：

procedure TForm1.ControlMouseUp( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if inReposition then begin Screen.Cursor := crDefault; ReleaseCapture; inReposition := False; end; end; (*ControlMouseUp*)

ControlMouseUp简言之：当用户完成移动（或调整控件大小）后，释放鼠标捕获（以启用默认的单击处理）并标记重新定位已完成。

就这样！下载示例应用程序并自己尝试。

注意：在运行时移动控件的另一种方法是使用Delphi的拖放相关属性和方法（DragMode、OnDragDrop、Dragver、BeginDrag等）。拖放可用于让用户将项目从一个控件（如列表框或树视图）拖到另一个控件中。

如何记住控制位置和大小？​

如果允许用户移动表单控件并调整其大小，则必须确保在关闭表单时以某种方式保存控件位置，并且在创建/加载表单时恢复每个控件的位置。下面介绍如何在INI文件中存储窗体上每个控件的Left、Top、Width和Height属性。

8号手柄怎么样？​

当您允许用户在运行时使用鼠标移动Delphi窗体上的控件并调整其大小以完全模拟设计时环境时，您应该向正在调整大小的控件添加八个大小句柄。