TDialogService.MessageDialog

[DamianG]

Hola, para hacer una pregunto utilizo lo siguiente:

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]]

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]

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

[[movorack]]

Que pena. mi error.

pero al parecer debes traducir los textos del Delphi

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

[DamianG]

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.