Cerrar MDIChild desde un Button

[ecfisa]

Hola Lenny.

En tu form MDIChild:

Código Delphi [-]
implementation
...

procedure TfrmChild.btnCerrarClick(Sender: TObject);
begin
  Close;  // Cerrar
end;

procedure TfrmChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

procedure TfrmChild.FormDestroy(Sender: TObject);
begin
  frmChild:= nil;
end;

Saludos.

[Lenny]

Te pasaste gracias!!! voy saliendo de emergencia apenas llegue lo pruebo, gracias nuevamente...

[Lenny]

Muchisiams gracias!!! recien tuve tiempo de provarlo y funciono de las mil maravillas... gracias por todo!!!