如何实现如QQ在屏幕右下角弹出的通知窗口，

Question

delphi 中如何能
实现如QQ在屏幕右下角弹出的通知窗口，
能不能给个例子呢！谢谢 ！

Answer 1

[email protected]。。谢谢了我写了下面一段，可是弹出来窗体上什么也没有。
procedure TForm2.Show;
  begin
    top:= screen.Height - self.Height;
    left:=screen.Width - self.Width;
    if AnimateWindow(Handle,800,AW_VER_NEGATIVE)=false then
      begin
      showmessage('窗体显示出错');
      free;
      end;
    //inherited show;
    ShowWindow(Handle, 4);
end;

Answer 2

我自己写的http://community.csdn.net/