Dúvida com messageBox - Delphi 7
21/12/2017
0
Pessoal, preciso resolver o seguinte:
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.
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
+ 0
Responder
Post mais votado
22/12/2017
Opa galera, excelente essa dúvida :)
A resposta do Natanael resolve perfeitamente, eu só fiz um pequeno ajuste para deixar a rotina qnd clicar no yes mais clara.
Grande abraço e bons códigos galera :)
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
Responder
Mais Posts
21/12/2017
Natanael Ferreira
Quando se clica no 'x' o resultado é o mrCancel.
Altere seu código para:
Altere seu código para:
case application.MessageBox('Confirma a exclusão?', 'Confirmação', MB_yesno + MB_iconInformation) of mrNo, mrCancel: exit; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)