怎样在MDI的子窗口中,互相进行操作.
如
MDI_FORM1和 MDI_FORM2 是MainForm 的子窗口怎样编写代码,生成这两个MDI窗口,而且在两个MDI子窗口 中,可以互相操作 子窗口的标题或触发该窗口的事件等原来想用全局的变量存放窗体,不过好像不可以.最好给我点代码,我是新手.谢谢!
如
MDI_FORM1和 MDI_FORM2 是MainForm 的子窗口怎样编写代码,生成这两个MDI窗口,而且在两个MDI子窗口 中,可以互相操作 子窗口的标题或触发该窗口的事件等原来想用全局的变量存放窗体,不过好像不可以.最好给我点代码,我是新手.谢谢!
begin
with TMDI_Form1.create(self) do
begin
name:='form1';
show;
end;
with TMDI_FORM2.create(self) do
begin
name:='form2';
show;
end;
end;procedure TMDI_FORM1.button1click(sender:TObject);
var i:integer;
begin
for i:=(self.Owner as TMainForm).MDIChildCount-1 to 0 do
begin
if (self.Owner as TMainForm).MDIChildren[i].Name='form2' then
begin
(self.Owner as TMainForm).MDIChildren[i].Caption:='你就是form2';
break;
end;
end;
end;