Before Delete, como cancelar a ação do evento ???

Delphi

09/09/2004

Olá amigos, como faço para cancelar a ação do evento Before Delete, por exemplo:

procedure TFServicosFornecedor.Qry_FornecedorBeforeDelete(DataSet: TDataSet);
begin
// desejo aqui inserir uma ação que cancele caso entre em alguma condição minha
end;


Alguém sabe essa ???

Obrigado!!!!
:shock:


Faelcavalcanti

Faelcavalcanti

Curtidas 0

Respostas

Everton

Everton

09/09/2004

Rafael, faça assim:

procedure TFServicosFornecedor.Qry_FornecedorBeforeDelete(DataSet: TDataSet); 
begin 
  if Condição then
  begin
    Abort;
    Exit;
  end;
end;



GOSTEI 0
Faelcavalcanti

Faelcavalcanti

09/09/2004

Obrigado amigo, estava pensando em fazer exatamente isso.
Valeu mesmo!!!

:D


GOSTEI 0
POSTAR