delphi动态创建控件

时间:2010-02-03 12:46:41  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:" cellpadding="5" width="99%" bgcolor="#e8ffe8" border="1">RegisterClass( TButton );2 使用FindClass 或 GetClass函数取得类参考,如:...
  正文:动态创建控件

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

1 先在单元的initialization 部分注册它,(这样在单元使用时会自动注册的)如:

RegisterClass( TButton );

2 使用FindClass 或 GetClass函数取得类参考,如:

var MetaClass : TPersistentClass;
MetaClass := FindClass( 'TForm2');

3 映射MetaClass为一般类型,否则你不能调用正确的constructor (因为你没指明所需参数)

var ComponentMetaClass : TComponentClass;
ComponentMetaClass := TComponentClass( MetaClass );


4 调用constructor

var AForm: TComponent;
AForm := ComponentMetaClass.Create( self );

5 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;

"delphi动态创建控件"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12760.html


关键字:

关于《delphi动态创建控件》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td