Buscar

Application.MessageBox

Código

Pegar Resultados do Application.MessageBox:

Var
 Result: Integer;

 Result:= Application.MessageBox('Teste de MessageBox','Teste',MB_YESNOCANCEL+ MB_ICONINFORMATION);
case Result of
2: ShowMessage('CANCELAR');
6: ShowMessage('SIM');
7: ShowMessage('NÃO');
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 20/06/09
Por: Neo
Visualizada: 13922 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009