★QQ窗体自动隐藏是如何实现的？？？

给个例子好吗？

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  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;  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure tForm1.CMMouseEnter(var Msg: TMessage);
begin
  Inherited;
  if Form1.Top<0 then Form1.Top:=0;
  Msg.Result:=0;
end;procedure tForm1.CMMouseLeave(var Msg: TMessage);
var pt: TPoint;
begin
    Inherited;
    GetCursorPos(pt);
    if PtInRect(Self.BoundsRect, pt) then Exit;
    Form1.Top:=0-Form1.Height +5;
end;procedure tForm1.WMMOVE(var Msg: TMessage);
var pt: TPoint;
begin
    Inherited;
    GetCursorPos(pt);
    if PtInRect(Self.BoundsRect, pt) then Exit;
    Form1.Top:=0-Form1.Height +5;
end;
end.
从Appbar继承的话最简单了，只要两三句代码就可以了，例子我有
to:ljmanage(过客)
能把例子给我吗？
[email protected]
可以给个例子看看吗？
[email protected]
我也来一份吧。谢了！
[email protected]
我也要!
顶！
[email protected]
我也要啊,呵呵
ljmanage(过客)靠这不是玩大家吗，发上来啊。不是就几句话吗？
webnetmax(衩衩裤)的办法也挺简单！
webnetmax(衩衩裤)的也很好用哦，我试了。
to:ljmanage(过客)
能把例子给我吗？
E_mail: [email protected]
ljmanage(过客)说的是最理想的作法。
webnetmax(衩衩裤) 的不错！我也试过了
贴出来不是很方便嘛》Ctrl+c&Ctrl+v
webnetmax(衩衩裤)的就是不错，呵呵：）
我也要
[email protected]
我不要！
webnetmax(衩衩裤)的就是不错！