在利用Delphi发开应用时，我们可以引用大量的控件，象VCL,OCX，也可以引用开发环境中提供的大量函数，如ShowMessage,Application.MessageBox等，正是这些资源极大的提高了应用的开发效率，但是，在具体的开发过程中，会产生这样一种需求，即如何将参数传递给窗体，最终用户操作窗体后返回具体值，应用程序再要根据此返回值作进一步的处理，就象Application.MessageBox一样工作。对此，笔者经过实践，终于通过自定义函数的形式找到了实现方法。下面让我们以实现类似Application.MessageBox功能的函数实例，看看如何定义支持窗体的自定义函数。
---- 第一步，建立函数的操作窗体；
---- 在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. |