Foros Club Delphi - TDialogService.MessageDialog

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- FireMonkey (https://www.clubdelphi.com/foros/forumdisplay.php?f=50)

- - TDialogService.MessageDialog (https://www.clubdelphi.com/foros/showthread.php?t=93614)

DamianG

29-11-2018 15:03:59

TDialogService.MessageDialog

Hola, para hacer una pregunto utilizo lo siguiente:

Código:

TDialogService.MessageDialog('Esta seguro de borrar definitivamente el registro ?', System.UITypes.TMsgDlgType.mtInformation,

[System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo],

System.UITypes.TMsgDlgBtn.mbNo, 0,

procedure(const AResult: TModalResult)

begin

  case AResult of

    mrYes: begin

             auxId := clientmodule.MTableInmueblesConsultaInactivos.FieldByName('idinmueble').AsInteger;

           end;

  end;

end);

Alguien sabe si puedo puedo cambiar YES por SI ?

Gracias

movorack

29-11-2018 17:25:01

Hola. usa Application.MessageBox

Código Delphi [-]if Application.MessageBox(PChar(TextInformation), PChar(DialogTitle), MB_YESNO
  + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES 
then
begin
  //Tu código
end;

DamianG

29-11-2018 17:44:02

Pasa que en Firemonkey para android tengo que usar la funcion que tengo en el ejemplo.

movorack

29-11-2018 18:01:30

Que pena. mi error.

pero al parecer debes traducir los textos del Delphi

https://stackoverflow.com/questions/...source-strings

DamianG

11-12-2018 12:12:05

Hola muchas gracias [movorack]!. Para quien le pueda servir, al final utilice el componente Tlang que viene con Delphi y se puede hacer la traducción de las palabras que uno quiere.

La franja horaria es GMT +2. Ahora son las 05:13:07.