Cerrar un Form MDI al abrir otro MDI

[[David]]

Va bien , pero falla cuando no hay ningún MDIActive en el Form .

Cuando llega a esta linea

Código Delphi [-]
Self.ActiveMDIChild.Close

Da error sino encuentra otro ActiveMDIChild , habría que poner algo , un if ... then , pero no sé que poner para que si no hay ningún MDIChildForm de error .

[[maeyanes]]

Cierto, se me pasó ese detalle, aquí te va una versión que toma en cuenta ese pequeño error...

Código Delphi [-]
procedure TMDIForm.AllButtonClick(Sender: TObject);
var
  NewMDIForm: TForm;

begin
  if Self.ActiveMDIChild is MDIChildrenClass[TButton(Sender).Tag] then
  begin
    if ActiveMDIChild.WindowsState = wsMinimized then
      ActiveMDIChild.WindowsState = wsNormal
  end
  else
  begin
    if Assigned(Self.ActiveMDIChild) then // Agrega esta línea para verificar si existe una forma MDIChild activa.
      Self.ActiveMDIChild.Close;
    NewMDIForm := MDIChildrenClass[TButton(Sender).Tag].Create(Application)
  end
end;