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


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/10196149/how-can-i-translate-the-firemonkeys-resource-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.