拖动无标题栏的窗口

1. //1.在private部分加入下列代码：
2. procedure wmnchittest(var msg: twmnchittest);message wm_nchittest;
4. //在程序部分加入以下代码：
5. procedure TForm1.wmnchittest(var msg: twmnchittest);
6. begin
7.   inherited;
8.   if (htclient = msg.result) then msg.result := htcaption;
9. end;
11. //2.在你的窗体开始的地方加入:
12. procedure wmnchittest(var msg: twmnchittest); message wm_nchittest;
13. //然后加入以下过程:
14. procedure TForm1.wmnchittest(var msg: twmnchittest);
15. begin
16.   if GetAsyncKeyState(VK_LButton) < 0 then
17.     msg.result := htcaption
18.   else
19.     msg.result := htclient;
20. end;
22. //3.控件拖动窗体
23. procedure Panel.MouseMove;
24. begin
25.   if FDown then begin
26.     Form.Left := Form.Left + X - FOldX;
27.     Form.Top := Form.Top + Y - FOldY;
28.   end;
29. end;
30. procedure Panel.MouseUp;
31. begin
32.   FDown := False;
33. end;
35. procedure Panel.MouseDown;
36. begin
37.   if (Button = mbleft) and not FDown then FDown := True;
38.     FOldX := X;
39.     FOldY := Y;
40. end;
42. //4.OnMouseDown的事件里加：（Label为例，其他的一个样）
43. procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
44.   Shift: TShiftState; X, Y: Integer);
45. const
46.   sc_dragmove = $F012;
47. begin
48.   ReleaseCapture;
49.   twincontrol(application.mainform).Perform(WM_SYSCOMMAND, sc_dragmove, 0);
50. end;
51. //5.
52. procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift:
53.   TShiftState; X, Y: Integer);
54. begin
55.   ReleaseCapture;
56.   Perform(WM_SYSCOMMAND, $F012, 0);
57. end;
58. //6.
59. procedure TfrmBlank.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
60.     Y: Integer);
61.   begin
62.     if (ssLeft in Shift) then begin
63.       ReleaseCapture;
64.       SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
65.     end;
66.   end;