让DELPHI编出的程序像QQ一样-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

让DELPHI编出的程序像QQ一样

［作者：佚名转贴自：本站原创阅读次数：32 更新时间：2005-12-15 16:07:00 录入：刘光勇］

private

{ 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;

上一篇:用DELPHI开发自动化服务器下一篇: 通过递归来实现搜索文件