本文共 610 字，大约阅读时间需要 2 分钟。

在 Panel 的 MouseDown 事件中，如果需要实现移动功能，可以按照以下步骤操作：

ReleaseCapture;
SendMessage(Ptool.Handle, WM_SYSCOMMAND, $F012, 0);

如果需要改变窗口的大小，可以按照以下步骤操作：

ReleaseCapture;
SendMessage(Ptool.Handle, WM_SYSCOMMAND, $F008, 0);

对于窗体的拖动问题，可以在 MouseMove 事件中使用以下方法：

procedure TForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end;

这个 SendMessage 函数具有多种应用场景，可以用来实现许多有趣的功能，例如窗口状态切换、菜单显示等。

转载地址：http://mqqfk.baihongyu.com/