首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

窗体?该如何处理

2012-02-24 
窗体?????知道了窗体Name,能不能找到窗体对象,如:窗体Name为Frm,现在要调用该窗体withTFrm.Create(Self)do

窗体?????
知道了窗体Name,能不能找到窗体对象,如:
窗体Name为Frm,现在要调用该窗体
with   TFrm.Create(Self)   do   .....
这个中间的要写怎样的代码才能把string转换为对象

[解决办法]
uses Unit2,Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
FormClass: TFormClass;
frm : Tform;
begin
FormClass:=TFormClass(GetClass( 'TForm3 '));
if FormClass = nil then
begin
showmessage( 'Not Found ');
exit;
end;
Application.CreateForm(FormClass,Frm);
Tform(frm).show;
TForm(frm).Caption := 'Test ';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterClass(Tform2);
RegisterClass(Tform3);
end;

热点排行