"Ola estou aqui postando como criar um Message Box, Pois quando eu estava iniciando em Delphi, demorei um pouco para aprender a trocar os ícones, titulo, botoes de uma mensagem"
Bom, estarei postando o código que eu modifiquei sendo que vocês vão poder trocar os icones da mensagem botoes etc.
Primeiramente coloque um Button no seu formulário.
adicione o seguinte código no evento onclick dele.
Application.MessageBox('Este e um exemplo de messagebox','TITULO DA MENSAGEM'
,+MB_OK+MB_ICONASTERISK);
Feito isso, você poderá alterar o ícone da mensagem, como fazer ?
Simplestemente altere oMB_ICONASTERISK, para os seguintes
MB_ICONQUESTION - Para um ícone de Interrogação
MB_ICONEXCLAMATION - Para um ícone com exclamação, igual a da imagem acima Warning Icon
MB_ICONASTERISK - Para um ícone de Informação, igual ao Information Icon.
MB_ICONERROR - Para um ícone de erro.
Então hoje vim ensinar isso a quem não sabe e a quem sabe pode dar dicas ou entrar em contato e virar redator do site.
Gostou ?, Comente não custa nada.
Bom, estarei postando o código que eu modifiquei sendo que vocês vão poder trocar os icones da mensagem botoes etc.
Primeiramente coloque um Button no seu formulário.
adicione o seguinte código no evento onclick dele.
Application.MessageBox('Este e um exemplo de messagebox','TITULO DA MENSAGEM'
,+MB_OK+MB_ICONASTERISK);
Feito isso, você poderá alterar o ícone da mensagem, como fazer ?
Simplestemente altere oMB_ICONASTERISK, para os seguintes
MB_ICONQUESTION - Para um ícone de Interrogação
MB_ICONEXCLAMATION - Para um ícone com exclamação, igual a da imagem acima Warning Icon
MB_ICONASTERISK - Para um ícone de Informação, igual ao Information Icon.
MB_ICONERROR - Para um ícone de erro.
Então hoje vim ensinar isso a quem não sabe e a quem sabe pode dar dicas ou entrar em contato e virar redator do site.
Gostou ?, Comente não custa nada.
0 comentários:
Postar um comentário