|
我是比较喜欢用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}
以上红色的区域为具体实现特效的代码。为FORM1添加如下代码即可：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
var
mesfrm:tform2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
mesfrm:=tform2.Create(application);
mesfrm.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mesfrm.close;
end;
end.
OK，运行程序你已经可以看到效果了，不过记得将显示器设为800*600象素呵。
由于制作时间较短，只实现了基本的效果，但稍加修改便可和MSN的信息提示一模一样。
[聊天工具]四大更新 Windows Live Msn 8.1评测 [聊天工具]MSN + Yahoo Messenger整合很快完工_工具软件
[聊天工具]MSN Messenger占领世界市场61%的份额_联络工具_MS… [聊天工具]删除“我的电脑”中的MSN共享文件夹
[聊天工具]通过网易POPO与MSN好友隐身聊天 [聊天工具]MSN Messenger新增两个聊天机器人__天极Yesky
[聊天工具]MSN Messenger 8 Beta简单试用报告__天极Yesky [聊天工具]MSN Messenger能轻松找到网络故障原因__天极Yesky
[聊天工具]MSN Messenger8 超酷头像任你选__天极Yesky [聊天工具]MSN Messenger 8.0 Beta多图欣赏__天极Yesky
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
