• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

利用Delphi实现支持窗体的自定义函数_Delphi

Delphi 搞代码 3年前 (2018-08-09) 134次浏览 已收录 0个评论

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

—- 第一步,建立函数的操作窗体;

—- 在Delphi建立一空白窗体(form),然后加入如下控件,两个按钮Button与一个标签Label。

Button1: TButton; Label1: TLabel; Button2: TButton;
—- 第二步,建立输出函数;
—- 此函数为其他窗体具体调用的格式,我们就通过此函数来传递参数及返回窗体的操作结果。其形式为:

http://www.gaodaima.com/?p=65791利用Delphi实现支持窗体的自定义函数_Delphi

—- 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. 

欢迎大家阅读《利用Delphi实现支持窗体的自定义函数_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址