请问无标题栏窗体拖动的问题

[chsilence]

为什么响应message wm_nchittes后,SPEEDBUTTON就不能响应了呢

[jackie168]

在Form的OnMouseDown事件中加入：

ReleaseCapture;
PerForm(WM_syscommand,$F012,0);

[chsilence]

楼上的不行呀

[jackie168]

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
PerForm(WM_syscommand,$F012,0);
end;

測試通過~~

[楚人无衣]

去掉你的WMNCHitTest过程及其代码再用楼上方法，一样拖动窗体

[jinjazz]

加入FAQ了