Mensaje de confirmacion al borrar registro

[orca79]

Necesito que al utilizar el boton borrar en mi formulario este me pregunte si deseo borrar el registro. Y me de la opcion de aceptar o cancelar el borrado.
Asi tambien con el boton guardar.
Tambien necesito hacer validaciones al borrar un registro que contiene foreing key.
Gracias!

[Casimiro Notevi]

No entiendo, ¿una confirmación en el botón borrar?, pues cuando lo pulses, en su evento onclick:

Código Delphi [-]
begin
  if MessageDlg('¿Está seguro de borrar el registro?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    tu_dataset.delete;
end;

Y con los otros... igual.

[[Caral]]

Hola

Código Delphi [-]
 If MessageDlg('¿Está seguro que desea eliminar el registro ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
   begin
  // aqui lo que se quiere hacer
   end;

Saludos

[[Caral]]

Hola
Me ganaste por segundos amigo
Saludos

[Casimiro Notevi]

Y hemos puesto el mismo código
Yo lo he copiado de otro hilo

[[Caral]]

Hola
Eso es trampa
Saludos

[[Chris]]

Empezado por Casimiro Notevi

Código Delphi [-]
begin
  if MessageDlg('¿Está seguro de borrar el registro?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    tu_dataset.delete;
end;

Personalmente creo que no es conveniente utilizar un código como éste. Primero, te abstines de utilizar el TDBDeleteAction, y segundo, no es un código muy fácil de refactorizar. En su lugar, ejecuta la acción Delete por medio de un TDBAction. En el evento OnBeforeDelete de TDataset utiliza un código similar al siguiente:

Código Delphi [-]
if MessageDgl('¿Eliminar ...?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    Abort;

Por último, te recomiendo mejorar la usabilidad de tu aplicación utilizando mejores mensajes de diálogo.

Saludos!

[Casimiro Notevi]

Bueno, Chris, la respuesta es para un usuario nuevo, su primer mensaje, que no sabe todavía ni pedir un mensaje de confirmación al pulsar un botón, si le explico todo lo que comentas... ¡¡¡ se asusta y deja la programación !!!
Creo que hay que ir poco a poco, no es lo mismo responder a alguien novato como orca79 (novato recién iniciado) que por ejemplo a Caral (veterano experto programador)

Yo no lo hago así, realmente ese código es un copia->pega (como he dicho antes) del primer hilo que he encontrado con la palabra "messagedlg".

[roman]

No hay que ser más papistas que el papa.

// Saludos

[orca79]

Me funciono. Agradezco la respuesta!