关闭

Delphi 通过字符串实例化类

标签: delphi
660人阅读 评论(0) 收藏 举报
分类:

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

unit Unit2;

interface

uses
  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. 之间,包含了单元退出时的代码。在程序退出时运行并且只运行一次。

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:24552次
    • 积分:603
    • 等级:
    • 排名:千里之外
    • 原创:37篇
    • 转载:3篇
    • 译文:0篇
    • 评论:0条