摘要载入中…    请稍等…












内容载入中…    请稍等…

如长时间看不到内容,请关闭浏览器,重新打开此页!

芯友首页 应用软件 编程开发 网络硬件 资源下载 动漫音乐 精美图库 芯友论坛 视频教程 电脑技术QQ群:72845454
 ★★photoshop学友-史上最强播放器★★
 位置:编程开发>Deiphi>Deiphi API函数
◎→ 本类最新
在DELPHI中利用API实现网格内组件
用API实现在MSN的信息提示
利用WinAPI写小执行程序
Win32 API 使用的特殊情况
Windows API函数使用技巧
Delphi中SendMessage使用技巧
Delphi开发中Windows API函数的应
◎→相关资源
C语言入门视频教程
C#编程WinForm入门视频
Asp.net入门视频教程下载
VC++编程视频教程下载
VB窗体文章
HTML入门教程
Deiphi实例教程
Deiphi窗体文章
Deiphi数据库编程
Deiphi网络编程
Deiphi图形图象文章
Deiphi系统文件
◎→ 热门资源
Delphi数据压缩处理(2)
Delphi数据压缩处理(1)
简析Delphi中如何进行XML编程
简析Delphi中如何进行XML编程(10
Delphi下的COM编程技术简介(2)
Delphi下的COM编程技术简介(1)
用Delphi 3.0编制MP3音乐点歌台

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


日期:2008-10-20 22:10:56    来源:
   
 ·Delphi数据压缩处理(2) ·VB API函数文本浏览器使用方法
 ·用API实现在MSN的信息提示
Delphi中用API实现在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;

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的信息提示一模一样。  [1]

Delphi数据压缩处理(1)

API与常见的编程语言

--->MSN照片蠕虫专杀工具 V1.0┊可以完全查杀全新的变种蠕虫┊简体中文绿色免费版
--->MSN Genius V1.0
--->MSN Password Recovery V1.1.410.2006 汉化版
--->ShellBrowser For C++ & Delphi V5.02
--->Delphi学习宝典 V2.0
Tags:  Delphi API MSN
{$enumber$}
芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们