用API實現在MSN的資訊提示 (轉)
我是比較喜歡用的,因為它的資訊提示比較獨特,所有的都是彈出一個常規的對話方塊,而它卻好像是從工作列裡冒出來的。想想了,在這樣的純工具里加一個應該不難實現,花了十來分鐘終於搞出來了,以下是實現方法:
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/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 在VB中用API實現多媒體 (轉)API
- 商品API資料在電商中的應用與實現API
- Hooks API 在 Vue 中的實現分析HookAPIVue
- 在Linux下成功執行最新的QQ和MSN(轉)Linux
- 實現快遞單號物流資訊介面APIAPI
- 在應用程式中實現RAS撥號 (轉)
- 微軟開放MSN API 騰訊反對互通微軟API
- 在CGI中實現session的想法和實現 (轉)Session
- 解決gaim+msn的ssl庫及不能發出提示音問題的指南(轉)AI
- 資訊公交服務在滴滴的應用實踐
- 在PB應用中實現聲音與動畫 (轉)動畫
- 在Linux下兩種方法完整執行最新的QQ和MSN(轉)Linux
- jsonp 的原理和採用 Promise API 的實現JSONPromiseAPI
- msn小工具適用!
- Linux高階應用CpuMemSets在Linux中的實現(轉)Linux
- 關於用WMI獲取系統資訊——程式設計實現(轉)程式設計
- 用Delphi在區域網中實現網上影院 (轉)
- 用opencv實現的PCA演算法,非API呼叫OpenCVPCA演算法API
- dbms_job包的應用:在Oracle中實現定時操作(轉)Oracle
- 用 API 做的 ServerSocket 例子 (轉)APIServer
- 在 ASP .NET Core 中實現冪等 REST APIRESTAPI
- 用iptables實現NAT(轉)
- 解除安裝MSN Messager的辦法(轉)
- 在ubuntu的QtCreator 出現提示Wayland警告UbuntuQT
- 9.2 運用API實現執行緒同步API執行緒
- 在debian下用lilo實現開機畫面(轉)
- 如何實現在指定的時間後網頁實現跳轉網頁
- 【實戰】用原生的 JavaScript Intersection Observer API 實現 Lazy LoadingJavaScriptServerAPI
- Android實現首次點選返回鍵提示資訊,第二次點選退出應用Android
- 在Delphi中實現圖片的旋轉、縮放 (轉)
- 特效實現用查表法實現對水波的模擬(轉)特效
- 在vim中實現批次加密(轉)加密
- VC實現對話方塊上資訊的顯示 (轉)
- 原生JS + HTML + CSS 實現快遞物流資訊 API 的資料鏈式展示JSHTMLCSSAPI
- TiDB 在醫療保障資訊平臺的應用實踐TiDB
- js實現的幾天前或者幾月前去年等時間日期提示資訊JS
- 用JavaScript實現動畫效果 (轉)JavaScript動畫
- 轉:在ABAP中實現進度條的例子