程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 自定義函數delphi窗體的自定義函數

自定義函數delphi窗體的自定義函數

編輯：Delphi

　　 ---- 第一步，建立函數的操作窗體；
　　---- 在Delphi建立一空缺窗體(form),然後加入如下控件，兩個按鈕Button與一個標簽Label。
　　Button1: TButton; Label1: TLabel; Button2: TButton;
　　---- 第二步，建立輸出函數；
　　---- 此函數為其他窗體具體挪用的格式，我們就通過此函數來傳遞參數及返回窗體的操作結果。其形式為：
　　---- function ShowMsg(btn1, btn2, msg, titleMsg: string): Integer;
　　---- 其中，btn1,btn2籌辦接收兩個按鈕的標題，msg為顯示的提示信息，titleMsg為窗體的標示，而且，此函數的返回值為integer.
　　---- 注重：此聲明必須放在implementation語句之前，使其對於外可見。
　　---- 第三步，實現輸出函數；
　　---- 具體代碼如下：
　　function
　　ShowMsg(btn1, btn2, msg, titleMsg: string): Integer; var frmshowMsg:
　　TfrmShowMsg; begin frmShowMsg := TfrmShowMsg.Create(Application); //建立自定義函數使用的窗體
　　with frmShowMsg do try button1.Caption := btn1; button2.Caption := btn2;
　　Label1.Caption := msg; Caption := titleMsg; if ShowModal=mrOK then//顯示窗體
　　result:=1 else result:=2; finally Free;//斷根不再使用的窗體 end; end;
　　---- 作為例子，只是最簡單的功效實現。
　　---- 最後一步，刪除建立此窗體時生成的代碼；
　　var frmShowMsg:TfrmShowMsg;
　　---- 下面讓我們看看如何使用上面實現的自定義函數。
　　---- 建立一個應用，通過Delphi->File->New Application便可。
　　---- 然後，在此應用中加入適才實現的單位文件。此時我們需要在Project Options中設定frmShowMsg為可用的窗體。用一個按鈕實驗一下這個自定義函數ShowMsg。showMsg('正確','取消','真的退出程序嗎?','確認');
　　---- 運行，就可以看到支持窗體的自定義函數了，效果與Delphi中Application.MessageBox差不多。
　　---- 掌握此種實現方法後，我們就可以接續構造出需多類似的通用函數，以完成差別的功效，如支持數據浏覽的自定義函數，查看任意數據表等等。
　　---- 最後附完備的此自定義函數的程序詳細登記單：
　　unit udfForm;
　　interface
　　uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
　　Dialogs, StdCtrls;
　　type TfrmShowMsg = class(TForm)
　　Button1: TButton;
　　Label1: TLabel;
　　Button2: TButton;
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end;
　　function ShowMsg(btn1, btn2, msg, titleMsg: string): Integer;
　　implementation
　　{$R *.DFM}
　　function ShowMsg(btn1, btn2, msg, titleMsg: string): Integer;
　　var
　　frmshowMsg: TfrmShowMsg;
　　begin
　　frmShowMsg := TfrmShowMsg.Create(Application);
　　with frmShowMsg do
　　try
　　button1.Caption := btn1;
　　button2.Caption := btn2;
　　Label1.Caption := msg;
　　Caption := titleMsg;
　　if ShowModal=mrOK
　　then result:=1
　　else result:=2;
　　finally Free;
　　end;
　　end;
　　end.