50分！在线等！

[andyweiwei]

小弟最近在做一个类似于QQ的小东西！
就是想实现qq的类似的自动隐藏在屏幕上端或左右两侧！（不是用托盘！！）
各位大侠如何实现？有合适控件嘛？？？有源代码吗？？？
跪求！！

[pandengzhe]

自动隐藏，很多源码的，搜一下吧。。。

[XieWWW]

顶！

[zblaoshu1979]

up

[楚人无衣]

试一下，缩到顶部的：
...
type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
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}

{ TForm1 }

procedure TForm1.CMMouseEnter(var msg: TMessage);
begin
self.SetFocus;
if self.Top <= 2 - self.Height then
self.Top := 0;
end;

procedure TForm1.CMMouseLeave(var msg: TMessage);
begin
if self.Top > 0 then Exit;
if self.Top > 2 - self.Height then
self.Top := 2 - self.Height
end;

[xhg0418]

先mark