有关MDI的几个问题！

Question

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

Answer 1

var
  I: Integer;
begin
  for I := 0 to MDIChildCount-1 do
  begin
    //用MDIChildren[I]引用每个MDIChild窗体
  end;
  //用ActiveMDIChild得到当前活动子窗体
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

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

Answer 12

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