Delphi如何实现QQ右下角弹出信息窗口

Question

如题。

Answer 1

form1.Left := Screen.Width - 自己窗口宽;
 form1.Top := Screen.Height - 任务栏高 - 自己窗口高;

Answer 2

1.开始运行时置窗体的:
  form1.top:=Screen.Height+X（X为要加的数值合适就好，比如：5）
  form1.left:=Screen.Width-form1.width;
2.放一Timer，设置好interval，在事件中：
  while form1.top>=Screen.Height-form1.Height do 
  　form1.top:=form1.top-1;

Answer 3

到盒子上下个MSNFORM不就行了。还用自己写。

Answer 4

private
    { Private declarations }
    PopForm:TForm;
  ......procedure TForm1.Button1Click(Sender: TObject);
begin
  PopForm:=TForm.Create(self);
  PopForm.Width:=200;
  PopForm.Height:=150;
  PopForm.Name:='PopForm1';
  PopForm.Left:=screen.Width-PopForm.Width;
  PopForm.Top:=screen.Height;
  PopForm.Show;
  Timer1.Interval:=200;
  Timer1.Enabled:=True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
 PopForm.Top:=PopForm.Top-10;
  if PopForm.Top<screen.Height-PopForm.Height then
    begin
      Timer1.Enabled:=False;
      PopForm.Free;
    end;
end;

Answer 5

用定时器不停的改变FORM。TOP属性就行了，还有确定这个定时器什么时候就不在使能。

Answer 6

http://www.eastrise.net/eapopup.rar来，下载吧，附源码下载完通知一下，我要删除(空间不多罗^_^)~~