窗体?????
知道了窗体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;