retornar de un Form

[ecfisa]

Hola.

En el evento OnClose de TMainForm, ponè lo siguiente:

Código Delphi [-]
begin
   Action:= caFree;
end;

Saludos.

[*Caro*]

Hola ericgs, según tu ejemplo debes colocar el codigo que te indica ecfisa en el OnClose de tu formulario TfmSeleccionarDepartamento que debe ser tu MDIChild. En las aplicaciones MDI por defecto todas las ventanas hijas se minimizan al cerrarlas.

Saluditos

[ecfisa]

Empezado por ecfisa

Hola.
En el evento OnClose de TMainForm, ponè lo siguiente:
Saludos.

Tál como dice Caro, Action:= caFree, va en los MDIChilds.

Realmente equivoqué al escribir el nombre del Form, mis disculpas

Saludos.

[ericgs]

el problema va en que si pongo:

Código Delphi [-]
 vModDep := TfmModificarDepartamento.Create(Self);
  ShowWindow(vModDep.Handle, SW_SHOWNORMAL);
  var:=vModDep.loQueSeaQueQuieraSacar;

la 3º linea se ejecuta justo después del ShowWindow, antes de que pueda hacer algo, al diferencia del modal

[Neftali [Germán.Estévez]]

Empezado por ericgs

la 3º linea se ejecuta justo después del ShowWindow, antes de que pueda hacer algo, al diferencia del modal

No acabo de entender cual es el problema.
Quieres recuperar un valor justo después de cerrar el formulario.
Si lo muestras modal, tendrás que destruirlo después de obtener el valor, sino tendrás problemas.

Código Delphi [-]
  vModDep := TfmModificarDepartamento.Create(Self); 
  try
    vModDep.ShowModal;    //=> Utiliza Action := caHide para luego poder recuuperar el cvalor.
    var := vModDep.loQueSeaQueQuieraSacar;  //(1)
  finally
    vModDep.Free; // lo destruyes
  end;

En este caso no puedes usar el Action := caFree, porque puede ser que cuando llegues a la línea (1) es formulario ya esté destruído o destruyendose.

Si no lo muestras modal, debes utilizar otro sistema, ya que necesitas que la línea se ejecute al cerrar el form (me imagino). Utilizar algunos de los eventos de salida para devolver el valor.

[ericgs]

perdón no me exprese bien, en el codigo anterior estoy creando una ventana mdi (child), por lo q no puede ser modal

[Neftali [Germán.Estévez]]

La otra opción, como ya te he dicho puede ser utilizando un evento. En mi caso más de una vez he utilizado algo similar a esto.

En el formulario MDI que vas a destruir defines un evento tal que así:

Código Delphi [-]
  published
    property MyOnClose:TNotifyEvent read FMyOnClose write FMyOnClose;

Cuando creas ese formulario "enganchas" el evento a un procedimiento tuyo para recibirlo:

Código Delphi [-]
  // creo el form
  Form2 := TForm2.Create(Application);
  // Redirijo el evento a un procedimiento mío
  Form2.MyOnClose := _CerrarForm;
  // Visualiza
  Form2.Show;

Al cerrar el form2 (el MDIChild) antes de destruirlo "aviso" utilizando el evento:

Código Delphi [-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Antes de destruirlo levantamos el evento
  if Assigned(Self.FMyOnClose) then begin
    Self.MyOnClose(Self);
  end;
  // Mandamos que se libere
  Action := caFree;
end;

Y en el momento de destruir el Form2 (MDIChild) al leventar el evento, llegará el control a mi procedimiento:

Código Delphi [-]
procedure TForm1._CerrarForm(Sender: TObject);
begin
  MessageDlg('Se está cerrando el formulario: ' + TForm(Sender).Name, mtInformation, [mbOK], 0);
end;

Parece más complejo de lo que es, pero en realidad es bastante sencillo.
Te adjunto el código para que veas cómo funciona.