Delphi中用API实现在MSN的信息提示

我更喜欢用MSN，因为它的信息提示是独一无二的。所有聊天软件都会弹出常规的Windows对话框，但好像是从任务栏出现的。想想吧。给Delphi这样的纯OOP工具加个API应该不难。花了十分钟才最终算出来。下面是实现方法:

1.创建一个应用程序，在FROM1的主窗体中放置两个按钮，即button1和button2。

1.按钮标题:= '打开窗户'；
button2.caption:= '关闭窗口'；

2.将form2添加到“文件”菜单项中的“新建”中，并在project的“选项”中将form2设置为“可用形式”。

3.下面是FORM2中的控件和属性设置。

form 2 . border style:= bs none；

添加面板1

panel 1 . align:= al client；
panel 1 . bevellnner:= bv lowered；

您可以在panel1中添加所需的文本。

好了，打开FORM2的代码窗口，代码如下:

unit Unit2

连接

使用
窗口、消息、系统工具、变体、类、图形、控件、表单、
对话框、ExtCtrls、jpeg、StdCtrls。

type
t form 2 = class(t form)
panel 1:t panel；
Image1:ti image；
label 1:t label；
procedure Label1Click(发件人:to object)；
过程图片1Click(发件人:to object)；
私有
{私有声明}
公共
过程显示；
过程关闭；
{公共声明}
end；

var
form 2:t form 2；

实现
过程t form 2 . close；
begin
如果animatewindow (handle，200，aw _ ver _ positive+aw _ hide) = false，则
begin
显示消息('窗体退出错误')；
免费；
end；
继承关闭；
end；
过程tform2。展示；
begin
top:= 430；
左:= 560；
如果animatewindow (handle，200，aw _ ver _ negative) = false，则
开始
显示消息('窗体显示错误')；
免费；
end；
继承的显示；
end；
{$R *。dfm}