El problema que sigo viendo un poco feo es que tengo que poner esta función completa para hacer la llamada en cada unit no logro encapsularla en un solo procedimiento o función que me devuelva el ModalResult .
porque como ShowModal no devuelve nada no se como obtener ese resultado.
Código Delphi
[-]
var
dlg: TMmensajes;r:string;
begin
dlg := TMmensajes.Create(LayoutMenu, nil,'¿ Salir ?', '¿ Seguro que quieres salir de la aplicación?','CANCELAR','SALIR',true);
dlg.ShowModal(procedure(ModalResult: TModalResult)
begin
case ModalResult of
mrOk:{$IF DEFINED(IOS) or DEFINED (ANDROID)}
MainActivity.finish;
{$ENDIF}
mrCancel: lbMenu.ClearSelection;
end;
end ) ;
end;