Delphi中用API實現在MSN的信息提示

　　我是比較喜歡用MSN的因為它的信息提示比較獨特所有的聊天軟件都是彈出一個常規的WINDOWS對話框而它卻好像是從任務欄裡冒出來的想想了在DELPHI這樣的純OOP工具裡加一個API應該不難實現花了十來分鐘終於搞出來了以下是實現方法

　　建立一個APPLICATION將兩個按鈕放置到主窗體FROM中分別為button和button

　　buttoncaption:=′打開窗口′;
　　buttoncaption:=′關閉窗口′;

　　在file菜單項中的new中添加窗體form並且在project中的options裡將form設置為Available froms

　　以下是FORM窗體內的控件及屬性設置

　　formborderstyle:=bsNone;

　　添加panel

　　panelalign:=alclient;
　　panelbevellnner:=bvLowered;

　　可以在panel內添加你想要的文字

　　OK打開FORM的代碼窗口代碼如下

　　unit Unit;

　　interface

　　uses
　　Windows Messages SysUtils Variants Classes Graphics Controls Forms
　　Dialogs ExtCtrls jpeg StdCtrls;

　　type
　　TForm = class(TForm)
　　Panel: TPanel;
　　Image: TImage;
　　Label: TLabel;
　　procedure LabelClick(Sender: TObject);
　　procedure ImageClick(Sender: TObject);
　　private
　　{ Private declarations }
　　public
　　procedure Show;
　　procedure close;
　　{ Public declarations }
　　end;

　　var
　　Form: TForm;

　　implementation
　　procedure tformclose;
　　begin
　　if AnimateWindow(HandleAW_VER_POSITIVE+AW_HIDE)=false then
　　begin
　　showmessage(′窗體退出出錯′);
　　free;
　　end;
　　inherited close;
　　end;
　　procedure tformShow;
　　begin
　　top:=;
　　left:=;
　　if AnimateWindow(HandleAW_VER_NEGATIVE)=false then
　　begin
　　showmessage(′窗體顯示出錯′);
　　free;
　　end;
　　inherited show;
　　end;
　　{$R *dfm}

　　以上紅色的區域為具體實現特效的代碼為FORM添加如下代碼即可

　　unit Unit;

　　interface

　　uses
　　Windows Messages SysUtils Variants Classes Graphics Controls Forms
　　Dialogs StdCtrls;

　　type
　　TForm = class(TForm)
　　Button: TButton;
　　Button: TButton;
　　procedure ButtonClick(Sender: TObject);
　　procedure ButtonClick(Sender: TObject);
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end;

　　var
　　Form: TForm;

　　implementation

　　uses Unit;
　　var
　　mesfrm:tform;
　　{$R *dfm}

　　procedure TFormButtonClick(Sender: TObject);
　　begin
　　mesfrm:=tformCreate(application);
　　mesfrmShow;
　　end;

　　procedure TFormButtonClick(Sender: TObject);
　　begin
　　mesfrmclose;
　　end;

　　end

　　OK運行程序你已經可以看到效果了不過記得將顯示器設為*象素呵

　　由於制作時間較短只實現了基本的效果但稍加修改便可和MSN的信息提示一模一樣

From:http://tw.wingwit.com/Article/program/Delphi/201311/24889.html