例如:
TForm1.Button1Click(Sender: TObject);
var
FormName: string;
begin
FormName := 'aForm';
//名字叫aForm这个窗体在工程里面是存在的,如何创建这个窗体呢? 多谢!
end;
TForm1.Button1Click(Sender: TObject);
var
FormName: string;
begin
FormName := 'aForm';
//名字叫aForm这个窗体在工程里面是存在的,如何创建这个窗体呢? 多谢!
end;
var
aForm: TForm;
aComponent: TComponent;
begin
aComponent := Application.FindComponent('Form2'); //'Form2'类名
if aComponent <> nil then
begin
ShowMessage(aComponent.ClassName);
(aComponent as TForm).ShowModal;
end;
end;