拖动无标题栏窗体时的出现问题？在线等待

[bigoal]

在处理消息wm_hittest时,如果使用
if msg.result=htclient then
msg.result:=htcaption;
会出现不能弹出窗体的popupmenu,请问如何解决？？？

[iriscat]

当然无法出现了，你已经接管了鼠标事件

要是用 sendmessage(handle, wm_command, $f012);

或许会好些

[bigoal]

谢谢楼上！
周一我试试，如对比给分！！

[yansea]

用这个方法是欺骗系统，让系统认为点击区域是标题栏，但是这样做会使form上不能接受焦点的控件也变的麻烦。如果有speedbutton之类的，那么不仅骗了系统也骗了自己，单击无效的。
而至于popupmenu就更容易解释了，系统认为你点击的是标题栏，当然不会弹出菜单了~~至于解决办法，我没有试过，不过你可以直接发送弹出菜单的消息给窗体。
最好先拦截一下这个消息，不然也很难处理的。
祝好运，另解决了的话也要写出来啊~~~~~

[taxi]

在窗体的OnMouseDown事件中
Perform(WM_SysCommand, $F012, 0);

[bigoal]

好的！！

[taxi]

就这样。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;

[墨梅无痕]

不处理WM_HitTest，而是处理WM_LBUTTONDOWN；
示例代码：

const
SC_DRAGMOVE = $F012; // 未归档消息。

procedure WMLButtonDown(var Msg: TWMLButtonDown); message WM_LBUTTONDOWN;

procedure TForm1.WMLButtonDown(var Msg: TWMLButtonDown);
begin
if (MK_CONTROL + MK_LBUTTON) = Msg.Keys then
begin
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0)
end
else
begin
inherited;
end;//if
end;

这个过程是当你按下CTRL键，再按下鼠标左键并拖动，就可以拖动窗体了。