关于窗体移动的问题

[zhangyu1108]

我有一个窗体，在窗体上放一个TIMAGE控件，我想在IMAGE上实现鼠标拖动窗体
如何做,

[tigerhohoo]

给窗体发送拖动的消息.

[tonylk]

ReleaseCapture;
Perform(WM_SysCommand,$f017,0);

[IORILI]

在private部分加入下列代码：
procedure wmnchittest(var msg:twmnchittest);
message wm_nchittest;
在程序部分加入以下代码：
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;