在mdi程序中 怎样获得所有当前打开的子窗口,并且依次获得窗口上的控件。

Question

在mdi程序中 怎样获得所有当前打开的子窗口,并且依次获得窗口上的控件。

Answer 1

Var
  i :INteger;
  frm:TForm;
begin
  For i := 0 To mdifrm.MDIChildCount - 1 DO
  Begin
     frm := mdifrm.MDIChildren[i];     For i := 0 To frm.ComponentCount - 1 DO
     Begin     End;  End;

Answer 2

楼上是对的，改一下：
procedure TFrmMain.Button1Click(Sender: TObject);
Var
  i :Integer;
  j : integer;
  frm:TForm;
begin
  For i := 0 To self.MDIChildCount - 1 DO
  Begin
     frm := self.MDIChildren[i];     For j := 0 To frm.ComponentCount - 1 DO
     Begin
       showmessage('f') ;
     End;  End;
end;