Forma que no se cierra

[rhino0nt]

Tengo un sistema MDI, al llamar una forma hija realizo en el evento FormShow() una validación para revisar si existen los registros suficientes para trabajar con la forma, si no existen se debe cerrar asi que efectuo la revisión y de ser 0 el resultado envío un mensaje y llamo la función Close, pero el mensaje aparece y la forma no se cierra, la forma aparece en pantalla, al hacer la depuración veo que se ejecuta la línea de Close pero nunca se efectua la acción, que estoy haciendo mal?

[ecfisa]

Hola.

¿ Ya probaste asignando Action a caFree en el evento OnClose ?

Código Delphi [-]
procedure TForm1.MDIChildClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

Saludos.

[rhino0nt]

Lo solucione con este post de Roman:

Una forma de hacerlo:

Código:

Código Delphi [-]
const
  CM_CLOSE = WM_USER + 1;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure CMClose(var Message: TMessage); message CM_CLOSE;
  end;

implementation

procedure TForm2.CMClose(var Message: TMessage);
begin
  ModalResult := mrOk;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  PostMessage(Handle, CM_CLOSE, 0, 0);
end;

PostMessage manda el mensaje pero sólo hasta que se procese el resto de mensajes, en este caso hasta que todos los mensajes necesarios para que el formulario termine de cargarse se procesen. Así, en el manejador del mensaje CM_CLOSE pones ya el valor deseado para ModalResult.

// Saludos

El problema es por el momento en que se llama el evento Close dentro del ciclo de vida de la forma, pero esto lo resuelve.

Gracias a todos.