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

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

用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级在线观看 | 在线观看亚洲一区二区 | 亚欧精品在线观看 | 天天综合天天影视色香欲俱全 | 亚洲成a人片毛片在线 | 日本红怡院亚洲红怡院最新 | 亚洲爱色 | 欧美午夜不卡在线观看最新 | 亚欧免费视频 | 欧美性三级 | 日韩视频在线观看免费 | 网友自拍第一页 | 一级做a爱片特黄在线观看 一级做a爱片久久蜜桃 | 色综合小说天天综合网 | 午夜免费观看视频 | 亚洲精品乱码国产精品乱码 | 色亚洲成人| 日韩视频在线观看免费 | 天天躁狠狠躁夜躁2021 | 日本视频中文字幕 | 午夜在线播放视频在线观看视频 | 亚洲aⅴ天堂| 午夜精品久久久 | 七月丁香八月婷婷综合激情 | 日韩精品成人免费观看 | 日韩免费a级在线观看 | 日韩精品亚洲人成在线观看 | 日韩一级在线视频 | 日本中文在线 |