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:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
begin
if MessageDlg('Desea Eliminar?', mtConfirmation, mbYesNo,0)=6  then
begin
 //instruccion
end;

[[AgustinOrtu]]

Proba asi:

Código Delphi [-]
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

Código Delphi [-]
      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]

Empezado por TomasChavezJ

...

¿Eso es para firemonkey?


Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

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



Gracias