50分！在线等！

Question

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

Answer 1

试一下，缩到顶部的：
...
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;