六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

用API完成在MSN的信息提示

[摘要]我是比較喜歡用MSN的,因為它的信息提示比較獨特,所有的聊天軟件都是彈出一個常規的WINDOWS對話框,而它卻好像是從任務欄里冒出來的。想想了,在DELPHI這樣的純OOP工具里加一個API應該不難...
我是比較喜歡用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的信息提示一模一樣。


主站蜘蛛池模板: 欧美亚洲国产日韩一区二区三区 | 亚洲欧美啪啪 | 最近最新中文字幕在线第一页 | 午夜微博 | 日本黄色免费网址 | 日日噜噜夜夜狠狠久久aⅴ 日日噜噜夜夜狠狠扒开双腿 | 小小的日本动漫在线观看免费高清 | 天天看天天做 | 亚洲激情视频在线播放 | 五月天丁香婷婷网 | 日韩v在线| 青娱乐青青 | 亚洲无砖砖区免费 | 性荡视频 | 青草导航 | 亚洲系列中文字幕一区二区 | 手机天堂 | 在线观看日本视频 | 羞羞漫画在线阅读页面漫画入口页面弹窗无限 | 午夜私人影院粉色视频我要 | 日本高清高色 | 五月婷婷丁香在线 | 色福利网| 日韩视频第二页 | 一本伊人 | 中文字幕在线播放不卡 | 三级免费黄色片 | 日韩av东京社区男人的天堂 | 在线综合色 | 日韩欧美色视频在线观看 | 日本一区二区三区免费高清在线 | 中文字幕专区高清在线观看 | 色综合天天综合网国产国产人 | 天天摸天天操 | 一级做a爰视频免费观看2019 | 天天看天天射天天碰 | 天天躁夜夜躁狠狠躁20216 | 天天综合天天干 | 四虎国产永久在线精品免费观看 | 天堂网在线最新版www | 自拍视频啪 |