delphi 无边框用鼠标改变窗体大小

delphi 无边框用鼠标改变窗体大小

1. //先声明
2. procedure WMNCHITTEST(var Msg : TWMNCHITTEST); message WM_NCHITTEST;
5. //无边框用鼠标改变窗体大小
6. procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
7. const
8.   cOffset=10;
9. var
10.   vPoint: TPoint;
11. begin
12.   inherited;
13.   vPoint:= ScreenToClient(Point(Msg.XPos, Msg.YPos));
14.   if PtInRect(Rect(0, 0, cOffset, cOffset),vPoint) then
15.     Msg.Result := HTTOPLEFT
16.   else if PtInRect(Rect(Width - cOffset, Height - cOffset, Width, Height), vPoint) then
17.     Msg.Result := HTBOTTOMRIGHT
18.   else if PtInRect(Rect(Width - cOffset, 0, Width, cOffset), vPoint) then
19.     Msg.Result := HTTOPRIGHT
20.   else if PtInRect(Rect(0, Height - cOffset, cOffset, Height), vPoint) then
21.     Msg.Result := HTBOTTOMLEFT
22.   else if PtInRect(Rect(cOffset, 0, Width - cOffset, cOffset), vPoint) then
23.     Msg.Result := HTTOP
24.   else if PtInRect(Rect(0, cOffset, cOffset, Height - cOffset), vPoint) then
25.     Msg.Result := HTLEFT
26.   else if PtInRect(Rect(Width - cOffset, cOffset, Width, Height - cOffset), vPoint) then
27.     Msg.Result := HTRIGHT
28.   else if PtInRect(Rect(cOffset, Height - cOffset, Width - cOffset, Height), vPoint) then
29.     Msg.Result := HTBOTTOM;
30. end;