熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:41:10  來源: Delphi編程 

  我是比較喜歡用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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.