技术散分:Delphi中用API实现在MSN的信息提示

技术散分:Delphi中用API实现在MSN的信息提示 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061211171215149.html
我是比较喜欢用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的信息提示一模一样。  
 

ding

板凳先~~~~~

转载于:https://www.cnblogs.com/delphi2007/archive/2008/10/28/1321028.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值