完成DELPHI的不可能功能:宏替换!(如何根据字符串来创建对象)

完成DELPHI的不可能功能:宏替换!(如何根据字符串来创建对象)

  我们在做一个比较大的系统(采用MDI方式)的时候,希望项目中的菜单、窗体全部是动态创建的,这样的话,程序员就很容易利用数据库将这些内容储存起来,需要的时候再根据这个用户的权限来取得相应的记录,根据这些记录来创建菜单、表单等!

  在这个过程中,我们必须面对的一个问题是: 在储存窗体对象的时候我们只能储存它的对象名(字符串), 但我们在程序中如何实现将字符串“转换”为对象名呢?(注:我这里用引号把“转换”引起来是因为:字符串是不可能转换为对象名的)

  这个功能其实在一些伪编译的开发工具中,如VF中就比较容易实现,如在VFP中只要用一个“&”运算符就可以实现了!但由于DELPHI是一个编译程序,所以不可能这么去处理的!


  我们来看下面的简单例子:

  //为了简单起见,在这里我没有写数据库操作的代码,只是直接写了一个字符串,实际使用的时候可以根据实际情况来写!

1、在DELPHI集成开发环境中关闭所有的项目;

2、建立一个新的MDI应用程序项目:file->new->other->projects->MDI Application;

3、编辑MainMenu1,添加一个菜单项TestChange,并双击这个菜单项,编辑代码如下:

4、在主窗口(mainform)中写上以下代码,以便调用你想要的窗口

procedure TMainForm.Da1Click(Sender: TObject);
var
  Child: TForm;//声明一个TForm类型的变量,做为显示子窗口的名称变量
begin
   { create a new MDI child window }
  Child := GetClassName('TMDIChild');//TMDIChild就是你在数据库存储的,子窗口的类名!
  Child.Caption := 'hello world'; //设置窗体标题
  Child.Show;  //显示这个窗体
end;
5、编辑GetClassName函数:

  private
    { Private declarations }
    procedure CreateMDIChild(const Name: string);
    Function GetClassName(tmpClass:String):TForm; //记得要在程序开头做声明
  public
    { Public declarations }
  end;

....

function TMainForm.GetClassName(tmpClass:String):TForm;
var
 cClass:TClass;
begin
 cClass:=GetClass(tmpClass);//取得类名
 if cClass <>nil then   //如果这个类已经注册
   application.CreateForm(TComponentClass(cClass),result);//创建这个类的实例
end;


5、在TMDIChild窗口中注册这个窗口的类:

initialization
  registerClass(TMDIChild);

finalization
  unregisterClass(TMDIChild);//注册完了当然要释放掉它了

这样你就可以完成类似于VF中的&这个宏替换的功能了!

不知道是不是这个标题有点太过夸张了?吓着你了吧!

  • 0
    点赞
  • 1
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

打赏
文章很值,打赏犒劳作者一下
相关推荐
©️2020 CSDN 皮肤主题: 鲸 设计师:meimeiellie 返回首页

打赏

Drate

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值