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;