Fórum Evento no Before Delete - Zeos #335884

Olá amigo

type
TDataMPadrao = class(TDataModule)
Conexao: TZConnection;
.
.
.
.
procedure DeletaRegistro(DataSet: TDataSet);
private
{ Private declarations }
public

.
.
.
.
procedure TDataMPadrao.DeletaRegistro(DataSet: TDataSet);
begin
if Messagedlg(MENSAGEM_DLG,mtconfirmation,[mbYes,mbNo], 0) then mryes
Abort;
end;

coloque nos eventos beforedelete das querys DeletaRegistro e todos os eventos de suas querys passarão a ter o mesmo evento para permitir ou não a exclusão do registro.

Obs: MENSAGEM_DLG é uma variável golbal que recebe a mensagem que vc deseja.

ex:

procedure TFrmHistoricoLancamentosCAD.DBNavClick(Sender: TObject;
Button: TNavigateBtn);
begin
if (Button = nbPost) or (Button = nbDelete) or (Button = nbCancel) then begin
if Button = nbDelete then begin
MENSAGEM_DLG := ´Deseja deletar este lançamento S/N´;
end;
Calcula_Totais(Sender);
end;
end;

Silvio Guedes

obrigado
Valeu msmo