¿Como asignar action:=caFree por defecto para todo formulario?

[elopezf]

Lo que tienes que hacer es:

Crear un Formulario lo llamas frmAncestro y guardas la Unidada UfrmAncestro
luego te pide guardar el nombre del proyecto ok MiAplicacion.

En el Formulario frmAncestro en el evento OnClose le escribes:

procedure TFrmAncestro.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:= cafree;
end;

Despues seleccionas:
File --> New ---> Other

y te aparece un cuadro de dialogo en el cual debes de buscar en las pestañas el nombre de tu aplicacion ejemplo MiAplicacion y ahi dentro encontraras el nombre de la forma Ancestro ejemplo: frmAncestro.

Espero que con esto ya puedas comensar hacer tu trabajo o puedas continuarlo, haa tambien te recomiendo leas un poco de programacion orientada ha objetos algo llamado herencia.

Estamos en contacto.

[Cheerpipe]

pero, es posible hacerlo modificando el procedimiento Tcustomform.close??
bueno si se podria, el problema que tengo es ke, cuando intento modificar se procedimiento de la clase Tform, simplemente no funciona, es decir, no me toma ese codigo......Se puede modificar ese procedimiento??


EDIT:

Ya solucione mi problema, encontre la directiva ke estaba buscando

el codigo me quedo como sigue:

Código Delphi [-]
public
  procedure Close; reIntroduce;

Código Delphi [-]
procedure TMDIForm.Close;
var
  CloseAction: TCloseAction;
begin
  release;
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      release;
      exit;
     // Con las 2 lineas anteriores, el form siempre se destruira
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

[roman]

Te estás complicando más de la cuenta. Si te fijas, tu método TMDIForm.Close, no está sino copiando el método base de TCustomForm. Ese método base llama a DoClose. Es éste el que tienes que redefinir:

Código Delphi [-]
protected
  procedure DoClose(var Action: TCloseAction); override;

Código Delphi [-]
procedure TForm2.DoClose(var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;

// Saludos

[Cheerpipe]

jejeje tienes toda la razon.

Tu ejemplo es justo lo que necesitaba, muchas gracias .