delphi动态创建控件

 动态创建控件

其实动态创建控件很简单，相信看过本文后你会全明白的。

１　先在单元的initialization 部分注册它，（这样在单元使用时会自动注册的）如：

RegisterClass( TButton );

２　使用FindClass 或 GetClass函数取得类参考，如：

var MetaClass : TPersistentClass; 

MetaClass := FindClass( 'TForm2');

３　映射MetaClass为一般类型，否则你不能调用正确的constructor （因为你没指明所需参数）

var ComponentMetaClass : TComponentClass;

ComponentMetaClass := TComponentClass( MetaClass );

４　调用constructor 

var AForm: TComponent;

AForm := ComponentMetaClass.Create( self );

５　AForm 现在成为一个有效的类实例，可以调用它的方法了。

TForm(AForm).Show;

或

var SomeForm : TForm;

SomeForm := TForm( AForm );

SomeForm.Show;

完整示例：

procedure TForm1.Button1Click(Sender: TObject); 

var MetaClass : TPersistentClass;

ComponentMetaClass : TComponentClass;

AForm: TComponent;

begin

  MetaClass := FindClass( 'TForm2');

  ComponentMetaClass := TComponentClass( MetaClass );

  AForm := ComponentMetaClass.Create( self ); 

  TForm(AForm).Show;

end;

或者是

TFormTForm( TComponentClass( FindClass( 'TForm2' ) ).Create( Self )).Show;