写托盘效果的程序，如何弹出汽泡式信息对话框（如MSN的对话提示）？

[lsk2000]

不用控件，用代码实现，老大们给点看法！

[lxwstar]

持观望态度。:)

[rick29]

搞个窗口，在程序里先定位到右下角，然后在用循环控制窗口高度，从0到实际高度。当然中间可能需要Sleep几毫秒，也可能要Repaint窗口。或者可以考虑使用AnimateWindow函数。可见这：http://expert.csdn.net/Expert/topic/2399/2399427.xml?temp=.9465753

[cxreal]

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.left:=Screen.Width-form1.width;
form1.top:=screen.height-form1.height;
AnimateWindow(Self.Handle, 1250, AW_VER_NEGATIVE or AW_ACTIVATE);
end;

procedure TForm1.button1Click(Sender: TObject);
begin
with form1 do begin
while height>0 do begin
top:=top+5;
height:=height-5;
end;
end;
close;
end;

[lsk2000]

多谢几位，还有个问题：
MSN中，当有好友上线或收到新邮时都会在桌面的右下角移出一小窗口，
就是在游戏中，这小窗口也会显示在最上面，而普通的窗口在游戏中是没法"显示"的
而且它不会夺取当前窗体的焦点。

这是怎么实现的呢？

[aiirii]

想法不錯, 關注

[ylmg]

procedure TGeniusFm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent:= GetDesktopWindow;
Params.EXStyle:=Params.ExStyle or WS_EX_TOOLWINDOW;
end;

Params.WndParent:= GetDesktopWindow保证弹出的小窗体能始终在上
Params.EXStyle:=Params.ExStyle or WS_EX_TOOLWINDOW;保证窗体不会夺的焦点

当然，如果你想象msn一样，弹出多个窗口，并且能通过这个窗体操作应用程序，呵呵，你自己想想怎么办吧

[ylmg]

好久没有出山了，要给点分鼓励一下哦：）

[lsk2000]

多谢，分没问题！ ：）