Buscar

Traduzindo a mensagem de exclusão do dbnavigator

Código

//Altere para False a propriedade Confirm Delete do DbNavigator

//Inclua o procedimento abaixo na propriedade BeforeAction do DbNavigator

  If Button = nbDelete then
    If MessageDlg('Confirma a exclusão do registro atual?', mtWarning, [mbYes, mbNo], 0) = mrno  Then
      Abort;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 18/05/07
Por: Mickey
Visualizada: 8169 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009