Como Traduzir a Mensagem “Delete Record” no Delphi
Compartilhe :

💡 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!


Compartilhe :

Posts Similares