Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Desarrollo en Delphi para Android
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy


Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-08-2020
dani36652 dani36652 is offline
Miembro
 
Registrado: abr 2019
Posts: 53
Poder: 6
dani36652 Va camino a la fama
Exclamation Uso de JAlertDialog (Alerta de Diálogo Nativa de Android)

Hola a todos estimada comunidad, esperando se encuentren muy bien, el día de hoy vengo a comentarles una serie de inconvenientes que he tenido para usar los diálogos nativos de android....


Como ya sabrán, si usas la unidad fmx.DialogService, al hacer un cuadro de diálogo con botones, éstos no se traducen al español, en este caso aparece ( desea cerrar la aplicación? - - - - - - - > botones #yes #no) y no se me hace algo bueno en cuestión visual...

Entonces opté por hacer un alert dialog accediendo a los componentes nativos de android... Es relativamente fácil pero me encontré con un problema: necesito asignarle las acciones correspondientes a los botones en este caso "positiveButton" y "negativeButton" les dejo código :

Código Delphi [-]
uses
androidapi.jni.widget, androidapi.jni.javatypes, Androidapi.helpers,
androidapi.jni.app,fmx.Platform.Android, fmx.Helpers.Android, Androidapi.JNIBridge
,androidapi.jni.os;

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var Alerta:JAlertDialog_builder;  s:JCharSequence;
begin
Alerta:=TJAlertDialog_builder.JavaClass.init(TAndroidHelper.Context);
Alerta.setTitle(StrToJCharSequence('Salir'));
alerta.setMessage(StrToJCharSequence('¿Desea salir de la aplicación?'));
s:=StrToJCharSequence('Si');
alerta.setPositiveButton(s,nil);

alerta.show;
end;
end.

Como pueden observar, en setPositiveButton, "s" es su texto del botón pero aquí va mi problema... Seguido está "nil" y ahí es donde van las instrucciones que deben ejecutarse cuando se toque el botón, me pide algo como JdialogInterface_onclickListener y sinceramente en delphi no sé cómo implementarlo, ya intenté con punteros, y otras cosas que hasta el momento conozco.... Si alguien pudiera ayudarme se los agradecería bastante
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
sobre Android SDK Manager y diferentes versiones de Android cocute Desarrollo en Delphi para Android 2 29-11-2017 21:24:00
Microsoft "estaría considerando" una versión nativa de Office para Linux movorack Noticias 43 10-02-2013 07:27:45
Windows 8 no reproduirá DVDs ni CDs de manera nativa (ni gratuita) Casimiro Notevi La Taberna 3 10-05-2012 18:20:19
Función nativa EnsureRange, ¿existe equivalente en Excel? Al González Varios 0 29-12-2011 02:04:08
conexion nativa Agustin Quevedo MS SQL Server 4 13-10-2005 15:49:39


La franja horaria es GMT +2. Ahora son las 18:57:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi