1,184
社区成员
发帖
与我相关
我的任务
分享用鼠标在窗体上点下鼠标左键，然后拖动窗体，窗体跟着鼠标移动。好象可以写一个消息，请帮帮我
用鼠标在窗体上点下鼠标左键，然后拖动窗体，窗体跟着鼠标移动。好象可以写一个消息，请帮帮我。
...全文
请发表友善的回复…
发表回复
chaosbird 2002-12-17
- 打赏
- 举报
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;
procedure TForm1.wmnchittest(var msg: twmnchittest);
begin
inherited;
if (htclient = msg.result) then msg.result:=htcaption;
end;
budded 2002-12-17
- 打赏
- 举报
Good!
jianzhang 2002-12-17
- 打赏
- 举报
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);
end;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);
end;
