这样的窗口怎么移动？

Question

在Panel的MouseDown an MouseUp中进行处理，用代码移动窗体的位置即可。

Answer 1

在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;以上代码实现的是一种以欺骗手段来欺骗鼠标，让他误认为点击窗体的时候是点击标题栏,这样可以达到移动窗体的目的，没有必要把时间花在这方面，多学习一下比较实用的东西。Good Luck

Answer 2

to ePing且整个FORM都被PANEL覆盖，不能用消息完成移动do you know?