在項目文件中有個全局變量Application，其類型為TApplication。在任何 Delphi 窗體應用程序中都存在這個變量。TApplication類中有一些屬性和方法，在一般情況下，我們不必關心全局變量Application，但該類提供的屬性和方法可以給程序設計提供很多幫助。

• ExeName

該屬性返回可執行應用程序的全路徑和文件名。在運行時隻讀。

• MainForm

該屬性指明了應用程序的主窗體，其類型為TForm類。

• Icon

設置應用程序的圖标

• Title

設置應用程序的标題

• Active

檢查應用程序是否為活動窗口

• Handle

Windows系統中的窗口句柄

• HelpFile

幫助文件的文件名

• ShowHint

設置是否顯示提示

示例：獲取應用程序的可執行文件名、路徑等信息顯示在窗體中，界面設計如下圖：

代碼如下：

procedure TForm1.Button1Click(Sender: TObject); var exe_name, file_name, path, ext_name: string; begin exe_name := Application.ExeName; file_name := ExtractFileName(exe_name); path := ExtractFilePath(exe_name); ext_name := ExtractFileExt(exe_name); Memo1.Lines.Clear; Memo1.Lines.Add('可執行全路徑文件名：' exe_name); Memo1.Lines.Add('可執行文件名：' file_name); Memo1.Lines.Add('可執行文件所在路徑：' path); Memo1.Lines.Add('可執行文件擴展名：' ext_name); end;

TApplication 類的常用方法：

• MessageBox

MessageBox 方法是Delphi對Windows的API函數MessageBox的封裝，與ShowMessage函數相比，功能比較強大。MessageBox方法定義：

function MessageBox(const Text; caption: PChar; Flags: longint=MB_OK): Integer;

參數說明：

1.Text

信息窗口中顯示的文本字符串

2.Caption

信息窗口的标題

3.Flags

信息窗口上顯示的按鈕。取值：

MB_ABORTRETRYIGNORE - 顯示 中止、重試、忽略 三個按鈕

MB_OK：顯示 确定 按鈕

MB_OKCANCEL：顯示 确定、取消 按鈕

MB_RETRYCANCEL：顯示 重試、取消 按鈕

MB_YESNO：顯示 是 、否 按鈕

MB_YESNOCANCEL：顯示 是、否、取消 三個按鈕

返回值：

對應于以上7個按鈕的操作，返回值為：

IDOK、IDCANCEL、IDABORT、IDRETRY、IDIGNORE、IDYES、IDNO

• CreateForm

用于創建一個窗體的實例。可以使用項目選項中的自動創建窗體來管理，這樣的話，我們就不需要使用該方法來創建窗體。CreateForm方法的聲明如下：

procedure CreateForm(Formclass: TFormclass; var Reference);

參數 Formclass 用于指定窗體的類，參數 Reference 返回創建的窗體實例。

• Run

運行程序

• Initialize

對應用程序進行初始化

• Minimize

将應用程序的主窗體最小化

• Restore

恢複應用程序的主窗體為最小化或最大化之前的狀态

示例：演示 MessageBox 方法，實現将應用程序窗口最小化，界面設計如下圖：

代碼如下：

procedure TForm1.Button1Click(Sender: TObject); var button_value: Integer; begin // 終止、重試、忽略 button_value := Application.MessageBox('請選擇一個操作', '提示', MB_ABORTRETRYIGNORE); case button_value of IDABORT: ShowMessage('您選擇了終止按鈕'); IDRETRY: ShowMessage('您選擇了重試按鈕'); IDIGNORE: ShowMessage('您選擇了忽略按鈕'); end; end; procedure TForm1.Button2Click(Sender: TObject); begin // 最小化 Application.Minimize; end;

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!