现在我有一个字符串变量存的是一个窗口的名称，这个窗口有一个按钮，如何才能运行按钮事件了？代码如下。

Question

var
fromname:string;
begin
formname:='form78';
formname.button1.onclick(self);//这句是错的，但如何写才能呢？请帮助。
end;

Answer 1

var
fromname:Tform78;
begin
formname:=Tform.create(application);
formname.button1.onclick(self);
end;

Answer 2

TForm2(Application.FindComponent('Form2')).Button1.OnClick(Self);// 上述方法假设 Form2 实例存在且 Name 为 'Form2'

Answer 3

Tform78(FindComponent('form78')).Button2Click(nil);

Answer 4

var
ddd:string;
begin
ddd:='Form2';
TForm2(Application.FindComponent(ddd)).Button1.OnClick(Self);
end;
//上面是对的。但是TForm2也是不知道的，也存在ddd变量中，如：'T'+ddd(Application.FindComponent(ddd)).Button1.OnClick(Self);
//'T'+ddd 相当于TForm2,如何写这句代码才对呢？

Answer 5

光用名字太不好弄了，这样吧。你用存放两个就好办了。譬如
a=record
   tf:TFormClass
   fName:string;
end;
var 
 b:a;
b.tf:=TForm2;
b.fName:='aaa';with b.tf.Create(self) do
  show

Answer 6

同意 
TForm2(Application.FindComponent('Form2')).Button1.OnClick(Self);// 上述方法假设 Form2 实例存在且 Name 为 'Form2'

Answer 7

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showmessage('dddddddddddddddddd');
end;
//------------------------
procedure TForm1.BitBtn2Click(Sender: TObject);
var
iconform:tform;
begin
iconform:= Tform1.Create(nil);
iconform.Caption:='New Icon ';
iconform.Name:='iconview2';
iconform.Show;
end;
//-----------------------------------------------------
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
TForm1(Application.FindComponent('iconview2')).BitBtn1.OnClick(Self);
end;
我单击BitBtn1，就新建军了一个窗口，现在我想单iconview2窗口中的bitbtn1的单击事件，我单击BitBtn2.程序出错，为什么会这样呢。

Answer 8

procedure TForm1.Button3Click(Sender: TObject);
var
  SubForm: TForm1;
begin
  SubForm := TForm1.Create(nil);
  SubForm.Caption := 'SubForm';
  SubForm.Show;
end;没有问题啊。按照你的意思，我理解下来是
Form1中有个Button,点击Button创建TForm1的实例，然后单机新窗体可以再次创建新窗体。

Answer 9

不好意是我写错了，还请原谅，、、-----------------------------------------------
BitBtn3.程序出错，为什么会这样呢。