qq登录后窗口右上角自动出现一消息框

qq登录后窗口右下角自动出现一消息框
如何用delphi实现：qq登录后窗口右下角自动出现一消息框这样的效果。

[解决办法]
1.動畫顯示窗體。。。

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin AnimateWindow(Handle,2000{速度:2秒},AW_BLEND);{ AW_HOR_POSITIVE = $00000001;  AW_HOR_NEGATIVE = $00000002;  AW_VER_POSITIVE = $00000004;  AW_VER_NEGATIVE = $00000008;  AW_CENTER = $00000010;  AW_HIDE = $00010000;  AW_ACTIVATE = $00020000;  AW_SLIDE = $00040000;  AW_BLEND = $00080000;}end;end.
[解决办法]
2.類似MSN或QQ的消息框...

Delphi(Pascal) code
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls;type  TForm1 = class(TForm)    Timer1: TTimer;    procedure FormCreate(Sender: TObject);    procedure Timer1Timer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin  Form1.Top:=Screen.Height;  Form1.Left:=Screen.Width-Form1.Width;  Timer1.Enabled:=True;end;procedure TForm1.Timer1Timer(Sender: TObject);begin  //Interval設定為10  Form1.Top:=Form1.Top-1;  if Form1.Top=Screen.Height-Form1.Height Then  Timer1.Enabled := False;end;end.
[解决办法]
LZ,你不想去人为的控制他弹出，
为什么不用加上时钟控件。

在时钟控件里面写代码，让他弹出窗体，

弹出窗体的效果可用不着“kye_jufei”所说有效果，

即
procedure TForm1.FormCreate(Sender: TObject);
begin
 AnimateWindow(Handle,2000{速度:2秒},AW_BLEND);
{ AW_HOR_POSITIVE = $00000001;
 AW_HOR_NEGATIVE = $00000002;
 AW_VER_POSITIVE = $00000004;
 AW_VER_NEGATIVE = $00000008;
 AW_CENTER = $00000010;
 AW_HIDE = $00010000;
 AW_ACTIVATE = $00020000;
 AW_SLIDE = $00040000;
 AW_BLEND = $00080000;
}
end;
[解决办法]