MessageDlg XE8

[[BlueSteel]]

Empezado por Neftali [Germán.Estévez]

Es raro, porque no es algo que debiera haber cambiado.
Este código, por ejemplo, funciona en Delphi 10 Seatle:

Código Delphi [-]
  Try
    // La linea siguiente es la que usaba
    If MessageDlg('Seguro de Eliminar al Cliente '+#13+#13+ 'Soc_Nombre', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin

      If (MessageDlg('Seguro de Eliminar al Socios '+#13+#13+ 'Soc_Nombre' , mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes ) then begin
        if  MessageDlg('Seguro de Eliminar al Socios ', mtConfirmation, [mbYes,mbNo], 0) = mrYes then  Begin
             {
             DM_Datos.AQ_Elimina.SQL.Clear;
             DM_Datos.AQ_Elimina.SQL.Add('Delete From Socio Where Soc_Rut=:Var1');
             DM_Datos.AQ_Elimina.Parameters[0].Value := DM_Datos.AQ_Socio['Soc_Rut'];
             DM_Datos.AQ_Elimina.ExecSQL;
             Selecciona;
             }
        End
      end;
    end;
  Except
     ShowMessage('No existen registros que se puedan eliminar');
  End;

He comentado la parte del DM para probar, pero los diálogos funcoinan como se espera.

Gracias por vuestra ayuda..

El código que tu dejaste si me funciono... y no se porque el que tenia no funcionaba, pero bueno...

Aqui os dejo el codigo que ahora me funciona

Código Delphi [-]
  Try
     // La linea siguiente es la que usaba
     If MessageDlg('Seguro de Eliminar al Cliente '+#13+#13+ DM_Datos.AQ_Socio['Soc_Nombre']+' '+DM_Datos.AQ_Socio['Soc_APaterno'], mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
             DM_Datos.AQ_Elimina.SQL.Clear;
             DM_Datos.AQ_Elimina.SQL.Add('Delete From Socio Where Soc_Rut=:Var1');
             DM_Datos.AQ_Elimina.Parameters[0].Value := DM_Datos.AQ_Socio['Soc_Rut'];
             DM_Datos.AQ_Elimina.ExecSQL;
             Selecciona;
        End
  Except
     ShowMessage('No existen registros que se puedan eliminar');
  End;