delphi 的 MDI 程序,同一时刻只会有一个子窗体最大化得到显示,还原时,MDI会自动恢复到原来的位置和大小。
如果是想对所有的子窗体最大化:
procedure TMainForm.ToolButton12Click(Sender: TObject);
var i: integer;
begin
for i := 0 to MainForm.MDIChildCount-1 do
begin
MainForm.MDIChildren[i].WindowState := wsMaximized;
end;
end;