💡 Problema: Mensagem Padrão ao Excluir um Registro
Ao clicar no botão de exclusão (-) do DBNavigator no Delphi, surge a caixa de diálogo padrão com a mensagem:
“Delete Record?”
Essa mensagem pode não ser ideal para usuários que falam português. Para personalizar o texto da confirmação de exclusão, siga os passos abaixo.
🎯 Solução: Personalizando a Mensagem de Exclusão
🔹 Passo 1: Desativar a Mensagem Padrão
1️⃣ Selecione o componente Table no Delphi.
2️⃣ No Object Inspector, defina a propriedade ConfirmDelete como False.
Isso impede que a mensagem padrão seja exibida.
🔹 Passo 2: Criar uma Mensagem Personalizada
Agora, precisamos exibir uma caixa de diálogo personalizada antes de excluir um registro. Para isso, utilize o evento BeforeDelete da tabela:
procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
if MessageDlg('Deseja realmente excluir este registro?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
Abort; // Cancela a exclusão
end;
✅ Se o usuário clicar em Sim (Yes), o registro será excluído.
❌ Se o usuário clicar em Não (No), a exclusão será cancelada (Abort).
🔹 Dicas Extras
✔️ Mensagem mais clara: Use textos descritivos para evitar exclusões acidentais.
✔️ Confirmação com Senha: Se necessário, adicione um campo para senha antes da exclusão.
✔️ Exclusão Lógica: Em vez de remover o dado permanentemente, marque-o como “inativo” no banco de dados.
🔎 Conclusão
Com essa abordagem, a mensagem de exclusão será exibida corretamente em português, tornando o sistema mais intuitivo para os usuários.
📌 Gostou do tutorial? Compartilhe e deixe seu comentário!
