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

[Cheerpipe]

emmm el problema ke tengo es ke no cree un formulario, solo tengo un .pas con codigo . Tonces cuando creo un formulario hijo (con File->Nen->Form) lo que hago es cambiar, en su pas, TNOMBRE_DEL FORM = class(TForm) por TNOMBRE_DEL FORM = class(TMDIForm), pues mi idea era hacer algo portable, por eso lo hice todo por codigo, pero .

He intentado modificanto los procedimientos close, closemodal y doclose pero (disculpen mi ignorancia) no funciona .

En la clase TMDIForm agregue

Código Delphi [-]
public
  procedure TCustomForm.Close;

a la definicion del typo y



y cambie el procedimiento por:

Código Delphi [-]
procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
 release;
end;

pero es como si ese procedimiento no se pudiese modificar