Fórum Dúvida com messageBox - Delphi 7 #590034
21/12/2017
0
Criei um Message box com dois botões "yes" e "no" para exclusão no Banco de Dados assim:
begin
if application.MessageBox(''''Confirma a exclusão?'''',''''Confirmação'''',MB_yesno+MB_iconInformation) = id_no
then
exit;
(...)
Os dois botões funcionam muito bem: o "yes" exclui e o "não" fecha a janela e mantém tudo como estava. Porém, percebi que se ao invés de clicar em "yes" ou "no" , eu clicar no botão "x" de fechar a caixa de diálogo do message box, ele entende como pedido para seguir a exclusão, ou seja, funciona como o botão "yes".
alguém pode me ajudar?
PS: sou novata, se puderem explicar com calma eu agradeço muito.
Patricia Reis
Curtir tópico
+ 0Post mais votado
22/12/2017
A resposta do Natanael resolve perfeitamente, eu só fiz um pequeno ajuste para deixar a rotina qnd clicar no yes mais clara.
procedure TForm1.Button1Click(Sender: TObject);
begin
case application.MessageBox('Confirma a exclusão?', 'Confirmação', MB_yesno + MB_iconInformation) of
mrNo, mrCancel: ShowMessage('clicou no ou fechou a caixa de dialogo');
mrYes: ShowMessage('remover dados do banco')
end;
end;
Grande abraço e bons códigos galera :)
Wesley Yamazack
Gostei + 3
Mais Posts
21/12/2017
Tiago
Gostei + 1
21/12/2017
Natanael Ferreira
Altere seu código para:
case application.MessageBox('Confirma a exclusão?', 'Confirmação',
MB_yesno + MB_iconInformation) of
mrNo, mrCancel:
exit;
end;Gostei + 1
22/12/2017
Patricia Reis
Gostei + 0
22/12/2017
Patricia Reis
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)