国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

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

用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的信息提示一模一樣。


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

下一篇:類和對象

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

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 黔西县| 大连市| 涪陵区| 杨浦区| 郑州市| 油尖旺区| 新宾| 上蔡县| 肃南| 乌什县| 米脂县| 台东市| 汶上县| 汕尾市| 江油市| 盐城市| 盈江县| 化州市| 新建县| 乐都县| 武义县| 黔东| 景德镇市| 五家渠市| 赞皇县| 镶黄旗| 嵊泗县| 樟树市| 富顺县| 瓮安县| 宽城| 隆林| 古蔺县| 象山县| 山西省| 峨边| 尼玛县| 柯坪县| 内江市| 神农架林区| 潜山县|