我是比较喜欢用MSN的，因为它的信息提示比较独特，所有的聊天软件都是弹出一个常规的Windows对话框，而它却好像是从任务栏里冒出来的。想想了，在Delphi这样的纯OOP工具里加一个API应该不难实现，花了十来分钟终于搞出来了，以下是实现方法：

　　1、建立一个APPLICATION，将两个按钮放置到主窗体FROM1中，分别为button1和button2。

button1.caption:=′打开窗口′; button2.caption:=′关闭窗口′;

　　2、在file菜单项中的new中添加窗体form2，并且在project中的options里，将form2设置为Available froms。

　　3、以下是FORM2窗体内的控件及属性设置

form2.borderstyle:=bsNone;

　　添加panel1

panel1.align:=alclient; panel1.bevellnner:=bvLowered;

　　可以在panel1内添加你想要的文字。

　　OK，打开FORM2的代码窗口，代码如下：

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, jpeg, StdCtrls; type TForm2 = class(TForm) Panel1: TPanel; Image1: TImage; Label1: TLabel; procedure Label1Click(Sender: TObject); procedure Image1Click(Sender: TObject); private { Private declarations } public procedure Show; procedure close; { Public declarations } end; var Form2: TForm2; implementation procedure tform2.close; begin if AnimateWindow(Handle,200,AW_VER_POSITIVE+AW_HIDE)=false then begin showmessage(′窗体退出出错′); free; end; inherited close; end; procedure tform2.Show; begin top:=430; left:=560; if AnimateWindow(Handle,200,AW_VER_NEGATIVE)=false then begin showmessage(′窗体显示出错′); free; end; inherited show; end; {$R *.dfm}

转贴于：计算机等级考试_考试大

[1] [2]