Hola de nuevo...
Esto de cambiarse de version desde el Delphi 7 al XE8 me ha traido varias complicaciones
... y eso que recién empece hace 1 semana con esto...
Otro de los codigos que no me ha funcionado bien, es el del MessageDlg
Cuando queria eliminar un registro, utilizaba la siguiente en el boton
Código Delphi
[-]
Try
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
Except
ShowMessage('No existen registros que se puedan eliminar');
End;
Bueno, despues de varios problemas de compilacion, lo logre ejecutar...
Problemas detectados:
- Antes podia incluir datos dentro del mensaje... ahora no lo hace (si pongo un dato de una tabla, simplemente no muestra el mensaje y no hace nada mas)
- Si bien ahora me muestra el mensaje, no me ejecuta la sentencia de eliminar el registro
A ver si me dan una manito, o por ultimo me indican que tipo de mensaje puedo utilizar para que se ejecute el codigo que necesito...
Gracias.. .y Salu2