boton de confirmacion en firemonkey

[FabianSiza]

hola a todos quiero saber como hago un boton de confirmacion debe ser diferente por que no me ha servido como lo aplico a VCL

en VCL lo uso asi:


procedure TForm1.Button3Click(Sender: TObject);
begin
if MessageDlg('Desea Eliminar?', mtConfirmation, mbYesNo,0)=6 then
begin
//instruccion
end;

[AgustinOrtu]

Proba asi:


procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('Aca tu mensaje', TMsgDlgType.mtConfirmation,
[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrYes then
// pulso yes
else
// pulso no
end;

[FabianSiza]

me ha servido para escritorio pero no para movil

aparece 'Blocking dialogs not implement on this plataform' que debo hacer!

[TomasChavezJ]

Que tal esto me funciona

MessageDlg('¿Desea eliminar el movimiento seleccionado?', System.UITypes.TMsgDlgType.mtconfirmation,
[
System.UITypes.TMsgDlgBtn.mbYes,
System.UITypes.TMsgDlgBtn.mbNo
],0,
// Metodo anonimo
procedure(const AResult: TModalResult)
begin
case AResult of
//Detecta cual boton fue pulsado
mrYES:
begin
end;
mrNo:
BEGIN
END;
end;
end
);

[Casimiro Notevi]

...

¿Eso es para firemonkey?


Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php), gracias por tu colaboración :)

Recuerda poner los tags al código fuente, ejemplo:

http://www.clubdelphi.com/images/UtilizarTAGs.png

Gracias :)