用API實現在MSN的資訊提示 (轉)

amyz發表於2007-08-14
用API實現在MSN的資訊提示 (轉)[@more@]

我是比較喜歡用的,因為它的資訊提示比較獨特,所有的都是彈出一個常規的對話方塊,而它卻好像是從工作列裡冒出來的。想想了,在這樣的純工具里加一個應該不難實現,花了十來分鐘終於搞出來了,以下是實現方法:

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: T);
  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_H)=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
  merm: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的資訊提示一模一樣。

 


來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752019/viewspace-956465/,如需轉載,請註明出處,否則將追究法律責任。

相關文章