Delphi 通过字符串实例化类

2016-08-31 20:18:32来源:CSDN作者:xia_xing人点击

D2007 通过字符串创建窗体类对象
1、需要在程序初始胡的时候将类注册,注册到对象 RegGroups:(TRegGroups)中,以便查找。
注册类使用的函数:RegisterClass ,窗体初始化操作放在initialization 中。

unit Unit2;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TfrmReg = class(TForm)  private    { Private declarations }  public    { Public declarations }  end;var  frmReg: TfrmReg;implementation{$R *.dfm}initialization //初始化开始  RegisterClass(TfrmReg) ; //注册类对象end.

2、利用FindClass根据类名来查找类对象。

//根据类名创建对象procedure TForm1.Button1Click(Sender: TObject);var  FormClass : Tformclass ;  Form : TForm ;begin   FormClass := Tformclass(findclass('TfrmReg')) ;   Application.Createform(FormClass,Form) ;   Form.Show ;end;

initialization —— 在单元中放在文件结尾前,包含用来初始化单元的代码,它在主程序运行前运行并且只运行一次。

finalization —— 在单元中放在 initialization 和 end. 之间,包含了单元退出时的代码。在程序退出时运行并且只运行一次。

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台