亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

用API實現在MSN的信息提示

2019-11-18 18:36:50
字體:
來源:轉載
供稿:網友
 

我是比較喜歡用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的信息提示一模一樣。


上一篇:使用靜態數組應該注意的問題

下一篇:類和對象

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
欧美精品中文字幕一区| 久久777国产线看观看精品| 高清日韩电视剧大全免费播放在线观看| 98精品在线视频| 久久久久久香蕉网| 亚洲视频在线免费观看| 日韩久久午夜影院| 成人久久18免费网站图片| 国产美女直播视频一区| 97av在线播放| 国产精品香蕉av| 中文字幕在线观看亚洲| 少妇高潮 亚洲精品| 国产视频欧美视频| 亚洲最大av在线| 久久久久亚洲精品成人网小说| 亚洲精品99久久久久| 久久亚洲精品一区二区| 欧美亚洲激情在线| 国产成人黄色av| 国产97在线|日韩| 欧美激情视频一区二区三区不卡| 97热精品视频官网| 国产精品久久久久久久av电影| 国产视频在线观看一区二区| 青青久久aⅴ北条麻妃| 两个人的视频www国产精品| 亚洲欧美国产一区二区三区| 欧美成人激情图片网| 亚洲免费一在线| 欧美孕妇性xx| 中文字幕欧美日韩| 欧洲永久精品大片ww免费漫画| 中文字幕精品国产| 91精品国产综合久久久久久蜜臀| 精品国产福利在线| 久久亚洲精品一区| 亚洲天堂视频在线观看| 国模精品视频一区二区三区| 亚洲free性xxxx护士白浆| 国产欧美精品一区二区三区介绍| 国产精品成人一区| 91在线免费网站| 日韩av在线免费看| 中文亚洲视频在线| 久久久久久亚洲精品不卡| 日本精品免费一区二区三区| 国产精品视频久久久| 国内精品久久久久久久久| 亚洲精品日韩激情在线电影| 国产精品黄视频| 日韩经典中文字幕在线观看| 亚洲aⅴ男人的天堂在线观看| 26uuu另类亚洲欧美日本一| 亚洲免费av电影| 欧美激情成人在线视频| 4k岛国日韩精品**专区| 久久夜色撩人精品| 欧美激情中文网| 欧美日韩国产丝袜美女| 国产视频丨精品|在线观看| 亚洲天堂一区二区三区| 国产免费一区视频观看免费| 97在线看免费观看视频在线观看| 黄色成人在线播放| 欧美在线视频免费观看| 欧美日韩免费区域视频在线观看| 日韩av一区二区在线| 亚洲最大福利视频网| 日韩免费av在线| 欧美性猛交xxxx富婆| 色青青草原桃花久久综合| 国产欧美韩国高清| 亚洲天堂av网| 久久亚洲精品一区二区| 日韩国产欧美精品一区二区三区| 欧美一区二区三区艳史| 国产精品视频中文字幕91| 国产日韩欧美综合| 日韩欧中文字幕| 亚洲最大成人网色| 国产精品对白刺激| 欧美色欧美亚洲高清在线视频| 欧美制服第一页| 国产免费一区视频观看免费| 在线观看91久久久久久| 最近2019中文字幕在线高清| 中日韩午夜理伦电影免费| 91成人在线视频| 一本色道久久综合狠狠躁篇的优点| 亚洲女在线观看| 91中文在线视频| 亚洲欧美中文日韩在线| 国产美女久久精品| 91久久国产精品| 亚洲国产小视频在线观看| 国产极品jizzhd欧美| 亚洲欧美一区二区三区在线| 欧美激情va永久在线播放| 色综合天天综合网国产成人网| 国产精品自产拍在线观看| 成人免费视频xnxx.com| 久久久亚洲福利精品午夜| 日韩日本欧美亚洲| 日本成人免费在线| 欧美电影在线观看网站| 国产欧美日韩最新| 国产噜噜噜噜噜久久久久久久久| 日韩精品高清在线观看| 国产精品黄页免费高清在线观看| 国产精品高清网站| 91美女片黄在线观看游戏| 日韩毛片在线观看| 国产精品www色诱视频| 一区二区在线免费视频| 4388成人网| 欧美亚洲在线观看| 欧美国产亚洲精品久久久8v| 亚洲天堂一区二区三区| 亚洲人成亚洲人成在线观看| 97色在线观看| 亚洲最大的免费| 久久久国产成人精品| 欧美日韩国产一区中文午夜| 成人做爽爽免费视频| 亚洲福利视频久久| 777精品视频| 黑人巨大精品欧美一区二区免费| 亚洲精品二三区| 日韩精品中文字幕在线观看| 69视频在线播放| 亚洲精品xxx| 视频直播国产精品| 在线国产精品播放| 中文字幕在线看视频国产欧美在线看完整| 91精品国产91久久久久久久久| 欧美精品国产精品日韩精品| 亚洲天堂色网站| 国产精品第2页| 国产欧美日韩中文| 欧美精品久久一区二区| 亚洲精品福利免费在线观看| 欧美精品第一页在线播放| 国产亚洲精品美女| 国产在线98福利播放视频| 久久好看免费视频| 亚洲视频999| 国产精品亚洲一区二区三区| 日本一区二区在线播放| 亚洲精品在线91| 欧美日韩国产丝袜另类| 91在线看www| 久久色免费在线视频| 久久久久女教师免费一区| 91在线观看免费高清| 日本精品视频在线| 精品高清一区二区三区| 国产精品福利久久久| 欧美高清理论片| 中文字幕av一区二区三区谷原希美| 国产一区二区三区中文| 久久综合免费视频| 久久免费视频观看| 国产精品久久久久9999|