Mensagem Com Delphi

Mensagem com Delphi

Para fazer uma caixa de mensagem com Delphi, podemos fazer:

MessageBox(Application.Handle , 'Texto' , 'Titulo' , MB_OK + MB_ICONINFORMATION );

Icones :

MB_ICONEXCLAMATION = Exclamação amarela.

MB_ICONWARNING = Erro

MB_ICONINFORMATION = Informação

MB_ICONQUESTION = Pergunta

Botões :

MB_OK = OK

MB_OKCANCEL = OK e Cancelar

MB_YESNO = Sim e Não

MB_YESNOCANCEL = Sim , Não , Cancelar

MB_ABORTRETRYIGNORE = Anular, Repetir e Ignorar

MB_RETRYCANCEL = Repetir e Cancelar

MessageBox(Application.Handle , 'Texto' , 'Titulo' , MB_OK + MB_ICONINFORMATION );

Icones :

MB_ICONEXCLAMATION = Exclamação amarela.

MB_ICONWARNING = Erro

MB_ICONINFORMATION = Informação

MB_ICONQUESTION = Pergunta

Botões :

MB_OK = OK

MB_OKCANCEL = OK e Cancelar

MB_YESNO = Sim e Não

MB_YESNOCANCEL = Sim , Não , Cancelar

MB_ABORTRETRYIGNORE = Anular, Repetir e Ignorar

MB_RETRYCANCEL = Repetir e Cancelar

Se necessitarmos de capturar a escolha do utilizador (tipicamente em perguntas de sim/não) podemos fazer:

var a:integer;

a:=MessageBox(Application.Handle , 'Texto' , 'Titulo' , MB_YESNO + MB_ICONQUESTION );

em que a é um inteiro. Para a escolha Sim, o a retorna 6

A forma mais simples de mostrar uma mensagem é

showmessage('Teste');

mas muito limitada, porque não mostra ícones nem opções Yes/No por exemplo.

Descobrindo o código ASCII de uma tecla

Para descobrir o código ASCII de uma determinada tecla você pode criar a seguinte

aplicação.

1. Insira um componente Label no form (Label1);

2. Mude a propriedade KeyPreview do form para true;

3. Altere o evento OnKeyDown do form como abaixo:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin