Cerrar el diálogo modal en la aplicación móvil delphi firemonkey (Android)
¡Estoy teniendo el mejor momento tratando de descubrir por qué mi formulario modal no se cierra! Utilizando Delphi XE-5 y la aplicación móvil FireMonkey (Android), seguí la información "Cuadros de diálogo de ShowModal en aplicaciones móviles FireMonkey"
Para fines de demostración, creé una nueva aplicación delphi Firemonkey Mobile y agregué un formulario móvil Firemonkey secundario. Desde el formulario principal, uso el código del artículo:
procedure TForm1.Button1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2 := TForm2.Create(nil);
Form2.ShowModal(procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
//
end;
Form2.DisposeOf;
end);
end;
En el formulario secundario, asigno la propiedad modalresult de los botones "Aceptar" y "Cancelar" a "mrCancel" y "mrOK", respectivamente. Sin embargo, cuando se muestra el cuadro de diálogo modal, ninguno de los botones cierra el cuadro de diálogo. Incluso intenté agregar eventos onClick y asignar el resultado modal por código. ¿Por qué no se cierra el formulario? ¿Supongo que necesito seguridad de que hice todo bien y es posible que sea mi TELÉFONO (dispositivo)?