Ver Mensaje Individual
  #1  
Antiguo 29-11-2018
DamianG DamianG is offline
Miembro
 
Registrado: mar 2008
Posts: 95
Reputación: 17
DamianG Va por buen camino
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
Responder Con Cita