Caixa de Diálogo YES / NO

Delphi

19/01/2004

Como faço pra exibir aquela janela de decisão ´Sim´ ou ´Não´ e em que váriável vou guardar o erro retornado ?

Precisso peguntar se o usuário tem certeza que deseja excluir um reg.

Obrigado


Ederbond

Ederbond

Curtidas 0

Respostas

Cebikyn

Cebikyn

19/01/2004

if Application.MessageBox(
     ´Deseja excluir o registro?´,
     ´Confirme´,
     MB_YESNO+MB_SYSTEMMODAL+MB_ICONQUESTION+MB_DEFBUTTON1) = ID_YES then
  // Aqui vc põe o código pra qnd o usuário clicar SIM
else
  // Aqui vc põe o código pra qnd o usuário clicar NÃO


O valor retornado pela função MessageBox é um inteiro (ID_YES ou ID_NO, que são constantes pré-declaradas).


GOSTEI 0
Andreaffbr

Andreaffbr

19/01/2004

Outra forma seria essa:
if MessageDlg(´Você deseja excluir o registro?´,
mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
//codigo caso seja yes
else
//codigo caso seja no


GOSTEI 0
Ederbond

Ederbond

19/01/2004

Valeu galéra....
Mto Obrigado...


GOSTEI 0
POSTAR