Ver Mensaje Individual
  #2  
Antiguo 18-02-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Existe un workaround a este "problema"

En FMX, hay una version sobrecargada de la funcion ShowModal que acepta como parametro un metodo anónimo, el cual va a ser ejecutado cuando el Form se cierra

Este es un ejemplo, escrito de memoria:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(NIL);
  Form2.ShowModal(
  procedure(const AModalResult: TModalResult)
  begin
    case AModalResult of
      mrOk: ;
      mrCancel: ;
    end; 
  end);
end;

Acá hay un poco mas de información y un ejemplo mas "real"
Responder Con Cita