有关MDI的几个问题！

[dropme]

1，MDI文字处理程序的“全部保存”的代码怎么写？
2。在主窗体上放一个combox，它的Item为所有字体名称，怎么用它控制当前激活的子窗体里的RcihEdit的字体！

请说详细点，谢谢！

[lxpbuaa]

var
I: Integer;
begin
for I := 0 to MDIChildCount-1 do
begin
//用MDIChildren[I]引用每个MDIChild窗体
end;
//用ActiveMDIChild得到当前活动子窗体
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[DWGZ]

第一个问题 1楼已经答了
第二个问题 ActiveMDIChild.RichEdit1.SelAttributes.Name := cmbFont.Text;

[dropme]

activeMdiChild。Richedit。。。。是不行的阿，根本访问不到阿！

[cscer]

不行的话，同样用循环查找当前激活的窗体

应该可以设置字体了吧

[nhdj]

同意楼上的
就是MDIChildren[I]窗体引用的问题

[dropme]

当前激活的窗体很容易可以得到，但得到了有什么用？你并不能访问激活窗体里的Richedit阿
，你怎么设置它的字体呢？同样，像保存全部也就没办法实现了！ ：(
请高手赐教阿!

[fengjn]

TYourMDIType(ActiveMDIChild).RichEdit1.SelAttributes.Name := cmbFont.Text;
同样保存也可以是
TYourMDIType(MDIChildren[I]）.Save;

[dropme]

TYourMDIType(ActiveMDIChild).RichEdit1.SelAttributes.Name := cmbFont.Text;
TYourMDIType是什么啊？
就照着写吗 ？？？？

[fengjn]

hehe
就是你的MDI子窗体的类的名称。当然不能照写了。

[dropme]

TForm吗？？？

[fengjn]

是TForm的一个子类，就是你MDI子窗体所属的类的名称

[DWGZ]

不好意思今天有点忙, 来不及回复
你是说什么访问不到， 是ActiveMDIChild， 还是ActiveMDIChild.RichEdit
if ActiveMDIChild <> nil then
begin
if ActiveMDIChild as 你的窗体类名(如TChildForm) <> nil then
begin
with ActiveMDIChild as 你的窗体类名(如TChildForm) do
....
end;
end

[DWGZ]

错了
if ActiveMDIChild <> nil then
begin
if ActiveMDIChild is 你的窗体类名(如TChildForm) then
begin
with ActiveMDIChild as 你的窗体类名(如TChildForm) do
....
end;
end

[dropme]

我用的是fengjn(小枫) 的方法！结贴！