Dock窗口的问题，50分征答。

Question

遍历Panel1的DockClients 代码如下procedure TForm1.FindDockWindows;
var
  ctrl: TControl;
  i: Integer;
begin
  for i := 0 to Panel1.DockClientCount - 1 do begin
    ctrl := Panel1.DockClients[0];
    if ctrl is TForm then begin // 使用RTTI检测类型, 如果Dock的都是Form的话,
      // 处理窗体信息
      // (ctrl as TForm)....;
    end;
  end;
end;

Answer 1

*----更正----
遍历Panel1的DockClients 代码如下procedure TForm1.FindDockWindows;
var
  ctrl: TControl;
  i: Integer;
begin
  for i := 0 to Panel1.DockClientCount - 1 do begin
    ctrl := Panel1.DockClients[i];
    if ctrl is TForm then begin // 使用RTTI检测类型, 如果Dock的都是Form的话,
      // 处理窗体信息
      // (ctrl as TForm)....;
    end;
  end;
end;