程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 在Delphi中定義自己圖標的消息框

在Delphi中定義自己圖標的消息框

編輯:Delphi

  應用程序在運行當中經常要輸出各種即時信息,Delphi提供了多種形式的消息對話框可以滿足這些要求,盡管可以使用各種標志定制一個消息框,但仍不能將自己的圖標放在消息框內,也不能修改其標准行為去創建自己的消息框,

  其實通過調用函數MessageBoxIndirect()就很容易繞過這些明確的限制,這是一個功能很強、易於使用的函數。

  ---- 此函數在WINDOWS單元裡面,文件位於Delphi安裝路徑SourceRtlWin裡面,需要指出的是,Delphi的原代碼中它的返回值類型是BOOL型,而實質上它的返回值應為Integer。修改方法:在Windows單元中找到此函數後,把BOOL改為Integer,共有三處要修改,然後在Delphi安裝路徑Lib中找到WINDOWS.DCU文件,把它改名或者刪除,並把修改後的Windows.PAS源碼復制到Lib路徑中。

  ---- 該函數只有一個參數,類型是TMsgBoxParams,它的結構及說明如下:

tagMSGBOXPARAMSA = packed record
cbSize: UINT;
{數據結構的長度}
hwndOwner: HWND;
{所有者窗口句柄}
hInstance: HINST;
{應用程序實例句柄}
lpszText: PAnsiChar;
{在消息框客戶區內顯示的文本}
lpszCaption: PAnsiChar;
{標題欄文本}
dwStyle: DWord;
{確定消息框內按鈕和圖符
的數量及種類的MB_標志}
lpszIcon: PAnsiChar;
{從資源文件中取出的一個
圖符資源的名字}
dwContextHelpId: DWord;
{指定幫助文本的ID號}
lpfnMsgBoxCallback: TPRMsgBoxCallback;
{當用戶按下HELP按鈕時調用的一個回
調函數}
dwLanguageId: DWord;
{顯示在按鈕內文本的語言定義}
end;


  ---- 由於直接使用此函數比較復雜,我們可以自定義一個函數來封裝此函數,對它進行簡化,在用法上盡量做到與Delphi的消息框相一致,自定義函數代碼如下:

function MessageEx
(lText,lCaption:PChar;
lStyle:DWord;lIcon:PChar):Integer;
var
Msg:TMsgBoxParams;
begin
Msg.cbSize:=Sizeof(Msg);
Msg.hwndOwner:=Application.Handle;
Msg.hInstance:=hinstance;
Msg.lpszText:=lText;
Msg.lpszCaption:=lCaption;
Msg.dwStyle:=lStyle;
Msg.lpszIcon:=lIcon;
Msg.dwContextHelpId:=1;
Msg.lpfnMsgBoxCallback:=nil;
Msg.dwLanguageId:=LANG_NEUTRAL;
Result:=MessageBoxIndirect(Msg);
end;


  ---- 要想在消息框中顯示自己的圖標,先准備一個裝有圖標的資源文件,加在程序中,如{$R c:mydirmyres.res},在lStyle參數裡除了所需的MB_標志外還要加上MB_USERICON標志,並在最後一個參數裡寫上資源文件中圖標的名字,如果不想使用自定義的圖標,可將最後一個參數設為nil。函數的其它用法和返回值的處理與Delphi提供的消息框一樣。

  ---- 強烈建議把自定義函數放在一個單元文件裡,並把此文件放在Delphi的搜索路徑如Lib下,以後只需要把此單元加在uses語句裡,就可以直接使用自定義函數,非常方便。

  

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved