Chinaunix首页 | 论坛 | 博客
  • 博客访问: 16496599
  • 博文数量: 5645
  • 博客积分: 9880
  • 博客等级: 中将
  • 技术积分: 68081
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-28 13:35
文章分类

全部博文(5645)

文章存档

2008年(5645)

我的朋友

分类:

2008-04-28 20:51:38

下载本文示例代码
  我是比较喜欢用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;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, jpeg, StdCtrls;typeTForm2 = class(TForm)Panel1: TPanel;Image1: TImage;Label1: TLabel;procedure Label1Click(Sender: TObject);procedure Image1Click(Sender: TObject);private{ Private declarations }publicprocedure Show;procedure close;{ Public declarations }end;varForm2: TForm2;implementationprocedure tform2.close;beginif AnimateWindow(Handle,200,AW_VER_POSITIVE AW_HIDE)=false thenbeginshowmessage(′窗体退出出错′);free;end;inherited close;end;procedure tform2.Show;begintop:=430;left:=560;if AnimateWindow(Handle,200,AW_VER_NEGATIVE)=false thenbeginshowmessage(′窗体显示出错′);free;end;inherited show;end;{$R *.dfm}  以上红色的区域为具体实现特效的代码。为FORM1添加如下代码即可: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementationuses Unit2;varmesfrm:tform2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginmesfrm:=tform2.Create(application);mesfrm.Show;end;procedure TForm1.Button2Click(Sender: TObject);beginmesfrm.close;end;end.  OK,运行程序你已经可以看到效果了,不过记得将显示器设为800*600象素呵。  由于制作时间较短,只实现了基本的效果,但稍加修改便可和MSN的信息提示一模一样。   我是比较喜欢用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;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, jpeg, StdCtrls;typeTForm2 = class(TForm)Panel1: TPanel;Image1: TImage;Label1: TLabel;procedure Label1Click(Sender: TObject);procedure Image1Click(Sender: TObject);private{ Private declarations }publicprocedure Show;procedure close;{ Public declarations }end;varForm2: TForm2;implementationprocedure tform2.close;beginif AnimateWindow(Handle,200,AW_VER_POSITIVE AW_HIDE)=false thenbeginshowmessage(′窗体退出出错′);free;end;inherited close;end;procedure tform2.Show;begintop:=430;left:=560;if AnimateWindow(Handle,200,AW_VER_NEGATIVE)=false thenbeginshowmessage(′窗体显示出错′);free;end;inherited show;end;{$R *.dfm}  以上红色的区域为具体实现特效的代码。为FORM1添加如下代码即可: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementationuses Unit2;varmesfrm:tform2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginmesfrm:=tform2.Create(application);mesfrm.Show;end;procedure TForm1.Button2Click(Sender: TObject);beginmesfrm.close;end;end.  OK,运行程序你已经可以看到效果了,不过记得将显示器设为800*600象素呵。  由于制作时间较短,只实现了基本的效果,但稍加修改便可和MSN的信息提示一模一样。 下载本文示例代码


Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示Delphi中用API实现在MSN的信息提示
阅读(168) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~