实现可缩放的无标题窗体
点击次数：39 次 发布日期：2008-11-09 08:42:10 作者：源代码网
源代码网推荐 源代码网推荐 uses 源代码网推荐 源代码网推荐 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 源代码网推荐 源代码网推荐 StdCtrls; 源代码网推荐 源代码网推荐 源代码网推荐 type 源代码网推荐 源代码网推荐 TForm1 = class(TForm) 源代码网推荐 源代码网推荐 private 源代码网推荐 源代码网推荐 procedure WmNCHitTest(var Msg : TWMNCHitTest); message WM_NCHITTEST; 源代码网推荐 源代码网推荐 源代码网推荐 { Private declarations } 源代码网推荐 源代码网推荐 public 源代码网推荐 源代码网推荐 { Public declarations } 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 var 源代码网推荐 源代码网推荐 Form1: TForm1; 源代码网推荐 源代码网推荐 源代码网推荐 implementation 源代码网推荐 源代码网推荐 源代码网推荐 {$R *.DFM} 源代码网推荐 源代码网推荐 源代码网推荐 procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest); 源代码网推荐 源代码网推荐 const v=10; //border width 源代码网推荐 源代码网推荐 var p:TPoint; 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 p:=Point(Msg.XPos,Msg.YPos); 源代码网推荐 源代码网推荐 p:=ScreenToClient(p); 源代码网推荐 源代码网推荐 if PtInRect(Rect(0,0,v,v),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTTOPLEFT 源代码网推荐 源代码网推荐 else if PtInRect(Rect(Width-v,Height-v,Width,Height),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTBOTTOMRIGHT 源代码网推荐 源代码网推荐 else if PtInRect(Rect(Width-v,0,Width,v),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTTOPRIGHT 源代码网推荐 源代码网推荐 else if PtInRect(Rect(0,Height-v,v,Height),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTBOTTOMLEFT 源代码网推荐 源代码网推荐 else if PtInRect(Rect(v,0,Width-v,v),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTTOP 源代码网推荐 源代码网推荐 else if PtInRect(Rect(0,v,v,Height-v),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTLEFT 源代码网推荐 源代码网推荐 else if PtInRect(Rect(Width-v,v,Width,Height-v),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTRIGHT 源代码网推荐 源代码网推荐 else if PtInRect(Rect(v,Height-v,Width-v,Height),p) then 源代码网推荐 源代码网推荐 Msg.Result:=HTBOTTOM; 源代码网推荐 源代码网推荐 Inherited; 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 end. 源代码网推荐 源代码网供稿. |
