Buscar por:

Trabalhando com mensagens - dicas

Código

Abra um novo projeto no Delphi 2005.

Para isso clique no menu: File – New – VCL Forms Application – Delphi for WIN32.

Com o formulário aberto insira os seguintes objetos:

•       5 TRadioButton

Altere as informações e as propriedades dos objetos para que fique igual ao exemplo abaixo:

Clique em cima do RadioButton Mensagem Simples e digite o seguinte código:

//Mensagem simples sendo usada ao ser marcada a opção , opção padrão do Delphi

If RadioButton5.Checked =True Then

showMessage('Mensagem simples , sendo testada com pequenas informações')

Clique em cima do RadioButton Mensagem de Informação e digite o seguinte código:

//Mensagem de Informação o numero zero representa o Help

messagedlg('Você deve informar todos os dados!',mtinformation,[mbyes,mbno],0);

Clique em cima do RadioButton Mensagem de Aviso e digite o seguinte código:

//Mensagem de Aviso o numero zero representa o Help

messagedlg('Cuidado! risco de perder os dados.',mtwarning,[mbyes,mbno],0);

Clique em cima do RadioButton Mensagem de Erro e digite o seguinte código:

//Mensagem de Erro o numero zero representa o Help

messagedlg('Não posso salvar os dados!',mterror,[mbretry,mbcancel],0);

Clique em cima do RadioButton Mensagem de Informação e digite o seguinte código:

/Mensagem de Confirmação o numero zero representa o Help

messagedlg('Você confirma exclusão dos dados!',mtconfirmation,[mbyes,mbno],0);

TIPOS DE MENSAGEM 

const Text      É uma constante string ou propriedade deste tipo.

Caption: PChar  Define uma string para o título da janela.

Flags   Define os botões, ícones e a possibilidade de focar um determinado botão.

Os valores para botões são:  

MB_ABORTRETRYIGNORE, 

MB_OK,

MB_OKCANCEL, 

MB_RETRYCANCEL, 

MB_YESNO, 

MB_YESNOCANCEL

Os valores para os ícones são:

MB_ICONEXCLAMATION, 

MB_ICONWARNING, 

MB_ICONINFORMATION, 

MB_ICONASTERISK, 

MB_ICONQUESTION, 

MB_ICONSTOP, 

MB_ICONERROR, 

MB_ICONHAND

Os valores para a definição do botão default (Padrão ou primeiro) pode ser:

MB_DEFBUTTON1, 

MB_DEFBUTTON2, 

MB_DEFBUTTON3, 

MB_DEFBUTTON4

O retorno da função é o tipo do botão como  id 

(IDABORT IDCANCEL IDIGNORE IDNO IDOK IDRETRY IDYES)

Desta maneira pode-se fazer testes lógicos como no exemplo:

if Application.MessageBox('Texto','Título',MB_YESNOCANCEL + MB_ICONINFORMATION + MB_DEFBUTTON2) = IdYes then