知识大全 Delphi中用API实现在MSN的信息提示

Posted 2022-07-14 知

篇首语：弓背霞明剑照霜，秋风走马出咸阳。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中用API实现在MSN的信息提示相关的知识，希望对你有一定的参考价值。

Delphi中用API实现在MSN的信息提示 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

　　建立一个APPLICATION 将两个按钮放置到主窗体FROM 中分别为button 和button

　　button caption:=′打开窗口′;　　button caption:=′关闭窗口′;

　　在file菜单项中的new中添加窗体form 并且在project中的options里将form 设置为Available froms

　　以下是FORM 窗体内的控件及属性设置

　　form borderstyle:=bsNone;

　　添加panel

　　panel align:=alclient;　　panel bevellnner:=bvLowered;

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

　　OK 打开FORM 的代码窗口代码如下

　　unit Unit ;

　　interface

　　uses　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　Dialogs ExtCtrls jpeg StdCtrls;

　　type　　TForm = class(TForm)　　Panel : TPanel;　　Image : TImage;　　Label : TLabel;　　procedure Label Click(Sender: TObject);　　procedure Image Click(Sender: TObject);　　private　　 Private declarations 　　public　　procedure Show;　　procedure close;　　 Public declarations 　　end;

　　var　　Form : TForm ;

　　implementation　　procedure tform close;　　begin　　if AnimateWindow(Handle AW_VER_POSITIVE+AW_HIDE)=false then　　begin　　showmessage(′窗体退出出错′);　　free;　　end;　　inherited close;　　end;　　procedure tform Show;　　begin　　top:= ;　　left:= ;　　if AnimateWindow(Handle AW_VER_NEGATIVE)=false then　　begin　　showmessage(′窗体显示出错′);　　free;　　end;　　inherited show;　　end;　　$R * dfm

　　以上红色的区域为具体实现特效的代码为FORM 添加如下代码即可

　　unit Unit ;

　　interface

　　uses　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　Dialogs StdCtrls;

　　type　　TForm = class(TForm)　　Button : TButton;　　Button : TButton;　　procedure Button Click(Sender: TObject);　　procedure Button Click(Sender: TObject);　　private　　 Private declarations 　　public　　 Public declarations 　　end;

　　var　　Form : TForm ;

　　implementation

　　uses Unit ;　　var　　mesfrm:tform ;　　$R * dfm

　　procedure TForm Button Click(Sender: TObject);　　begin　　mesfrm:=tform Create(application);　　mesfrm Show;　　end;

　　procedure TForm Button Click(Sender: TObject);　　begin　　mesfrm close;　　end;

　　end

　　OK 运行程序你已经可以看到效果了不过记得将显示器设为 * 象素呵

cha138/Article/program/Delphi/201311/24889