There is no overloaded version of MessageDlg that can be called with these arguments
 

El error lo que dice es:
No se como corregirlo.

Esta es una parte de mi codigo:

Código Delphi [-]
  i := messagedlg('¿Quiere borrar el pedido?',mtWarning, mbokcancel,0);
  if (i = mrok) then
    ShowMessage('Se ha borrado el pedido.');

Me mantiene constantemente subrayado de error el "mtWarning" dentro del codigo y no corre.

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



Gracias :)

ok, perdon. Podrias resolverme la duda?

Hola H.Sagas96.

En delphi 7 funciona perfectamente de este modo:

Código Delphi [-]
 if MessageDlg('¿Quiere borrar el pedido?', mtWarning, [mbYes,mbNo], 0) = mrOk then
   ....

Pero revisa en este ejemplo la sintáxis para la version XE7: MessageDlg (Delphi)

Saludos :)

ok muchas gracias :) ahorita reviso :)

No funciona en el xe6 :(

Hola de nuevo.

A ver, revisa estos enlaces:

• Messagedlg | Delphi XE5 XE6 XE7 XE8 Firemonkey, Delphi (1)
• New Non Blocking Message Dialog Function In Delphi XE7 on Android and IOS (2)
• XE7: messageDlg not work under Android
• Launching activities and handling results in Delphi XE6 Android apps

Saludos :)

Muchas gracias :) Ya logre correguir el error gracias a los links :D

Club Delphi,

:rolleyes:

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   if MessageDlg('¿Quiere borrar el pedido?', mtWarning, [mbYes,mbNo], 0) = mrYes then
      MessageDlg('Pedido Borrado', mtInformation, [mbOk], 0)
   else
      MessageDlg('Se mantiene el Pedido', mtInformation, [mbOk], 0)
end;

end.

El código anterior en Delphi XE6 sobre Windows 7 Professional x32, Muestra en ambiente VCL el uso de la función MessageDlg.

Revisa esta código:

Código Delphi [-]
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
   if (MessageDlg('¿Quiere borrar el pedido?', TMsgDlgType.mtWarning, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) =  mrYes) then
      MessageDlg('Pedido Borrado', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk], 0)
   else
      MessageDlg('Se mantiene el Pedido', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk], 0)
end;

end.

El código anterior en Delphi XE6 sobre Windows 7 Professional x32, Muestra en ambiente FMX el uso de la función MessageDlg.

Revisa esta información:
Notas:

1- Toda la información anterior es para futuras consultas relacionadas a la función MessageDlg en ambiente VCL y FMX.

2- El código sugerido en VCL y FMX, funciono correctamente en Delphi XE6 y Delphi XE7.

3- El error mencionado en el Msg #1 (E2250 There is no overloaded version of 'MessageDlg' that can be called with these arguments), ocurre si se utiliza la sintaxis VCL de la función MessageDlg en FMX.

Espero sea útil :)

Nelson.

Es una de las cosas de FMX que molesta bastante

Realmente, el tener que agregar el nombre del tipo enumerativo adelante seguido del valor en cuestión (TAlign.Client) ensucia mucho el código

Y el código delphi siempre me gusto por lo limpio que es

Pero bueno, se soluciona creando funciones PromtMsg, InfoMsg, WarningMsg etc