Buscar por:

Correção do application.mesagebox

Código

Seria melhor usarmos a função da seguinte forma:

if Application.MessageBox('Deseja realmente excluir o registro atual?','Confirme',

4 + MB_iconquestion) <> mryes then

abort

else

Table1.Delete;

Ou seja o sistema vai perguntar ao usuario se le relmente deseja excluir, e ira mostrar dois botões o Sim e o Não já traduzidos para o protugues isto se consegui colocando o numero 4 no lugar do MBYesNo,

DAi se o botão precionado for diferente do mryese (Sim) ou seja se precionar o botão Não então ele abortara a operação e fechara a janela,caso contrario ele deletara o registro.