让DELPHI编出的程序像QQ一样
点击次数：37 次 发布日期：2008-11-09 08:42:18 作者：源代码网
源代码网推荐 源代码网推荐 { Private declarations } 源代码网推荐 源代码网推荐 procedure WMMOVE(var Msg: TMessage); message WM_MOVE; 源代码网推荐 源代码网推荐 procedure CMMouseEnter(var Msg:TMessage);message CM_MouseEnter; 源代码网推荐 源代码网推荐 procedure CMMouseLeave(var Msg:TMessage);message CM_MouseLeave; 源代码网推荐 源代码网推荐 -------------------------------------------------------------- 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 procedure TfrmMain.CMMouseEnter(var Msg: TMessage); 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 Inherited; 源代码网推荐 源代码网推荐 if frmMain.Top<0 then frmMain.Top:=0; 源代码网推荐 源代码网推荐 Msg.Result:=0; 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 procedure TfrmMain.CMMouseLeave(var Msg: TMessage); 源代码网推荐 源代码网推荐 var pt: TPoint; 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 Inherited; 源代码网推荐 源代码网推荐 GetCursorPos(pt); 源代码网推荐 源代码网推荐 if PtInRect(Self.BoundsRect, pt) then Exit; 源代码网推荐 源代码网推荐 frmMain.Top:=0-frmMain.Height 5; 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 procedure TfrmMain.WMMOVE(var Msg: TMessage); 源代码网推荐 源代码网推荐 var pt: TPoint; 源代码网推荐 源代码网推荐 begin 源代码网推荐 源代码网推荐 Inherited; 源代码网推荐 源代码网推荐 GetCursorPos(pt); 源代码网推荐 源代码网推荐 if PtInRect(Self.BoundsRect, pt) then Exit; 源代码网推荐 源代码网推荐 frmMain.Top:=0-frmMain.Height 5; 源代码网推荐 源代码网推荐 end; 源代码网推荐 源代码网供稿. |
