void __fastcall TForm1::FormActivate(TObject *Sender)
{
  //信息提示窗体，特点是适应了任务栏的所有情况
  TRect k;
  HWND handle=GetDesktopWindow();//得到桌面的handle
  GetWindowRect(handle,&k);//得到桌面的大小

  TRect rt;
  SystemParametersInfo(SPI_GETWORKAREA, 0, &rt, 0);
  int x=::GetSystemMetrics(SM_CXSCREEN)-rt.Width();//任务栏在右面的宽度
  int y=::GetSystemMetrics(SM_CYSCREEN)-rt.Height();//任务栏在下面的高度
  /*----------------------------------------
  //C++Builder专家社区[url]www.3322ee[/url]原创文章
  //转载请保留本版权信息，谢谢合作
  ----------------------------------------*/
  //下面的两种显示效果①和②任选一个
  //①直接显示在右下角：直接显示没有动画效果，可以放在窗体的Create事件也可以放在Activate事件里面
  Left=k.Width()-Width-x;
    if(Left<0)Left=0;
  Top=k.Height()-Height-y;
    if(Top<0)Top=0;

  //②逐渐向上显示：要放在窗体的Activate事件里才能看到效果
  Left=k.Width()-Width-x;
    if(Left<0)Left=0;
  Top=k.Height();
    for(;;){
      //Application->ProcessMessages();//在长时间循环中响应消息
        if(Top==0)break;//结束整个循环
        if(Top<=k.Height()-Height-y)break;//结束整个循环
      Top-=2;//改变数值可以改变窗体出现的速度
      //Sleep(1);//延时，进一步调整窗体移动速度时使用
    }
}