Veja como usar a função MessageBox no Delphi.

Esta função pertence a API do Windows. Com isso as janelas de mensagens ficam no padrão do Windows. Não é tão complexo de usar. Parâmetros: - Handle da janela pai. Este é o handle da aplicação ao qual a janela de mensagens está associada. - Texto a ser mostrado - Título da janela - Flags   - Ícones     MB_ICONINFORMATION,     MB_ICONASTERISK    -  Letra "i" dentro de um "balãozinho" branco     MB_ICONEXCLAMATION,     MB_ICONWARNING     -  Ponto de exclamação (!) dentro de um triângulo amarelo     MB_ICONERROR,     MB_ICONSTOP,     MB_ICONHAND        -  Letra "X" dentro de um círculo vermelho     MB_ICONQUESTION    -  Ponto de interrogação dentro de um "balãozinhO" brnaco      - Botões     MB_OK               - Apenas o botão OK     MB_OKCANCEL         - Botões OK e Cancelar     MB_YESNO            - Botôes SIM e NÂO     MB_YESNOCANCEL      - Botões SIM, NÃO e Cancelar     MB_ABORTRETRYIGNORE - Botões Anular, Repetir e Ignorar     MB_RETRYCANCEL      - Botões Repetir e Cancelar        - Default     MB_DEFBUTTON1       - Primeiro botão é o default     MB_DEFBUTTON2       - Segundo botão é o default     MB_DEFBUTTON3       - Terceiro botão é o default   - Modalidade     MB_APPLMODAL   - O usuário deve clicar num dos botões da caixa de mensagem antes de continuar                      trabalhando na janela identificada como pai. O usuário consegue trabalhar em                      outras janelas de outras aplicações.     MB_SYSTEMMODAL - Igual a MB_APPLMODAL porém impede que o usuário trabalhe em outras janelas      - Outras configurações     MB_HELP - Adiciona "Ajuda" na caixa de mensagens. Clicar no botão Ajuda ou pressionar F1               gera um evento Help     MB_RIGHT -  Justifica o texto à direita - Retorno   IDABORT  - Botão "Anular" foi pressionado   IDCANCEL - Botão "Cancelar" foi pressionado ou a tecla "ESC" foi pressionada   IDIGNORE - Botão "Ignorar" foi pressionado   IDNO     - Botão "Não" foi pressionado   IDYES    - Botão "Sim" foi pressionado   IDOK     - Botão "OK" foi pressionado   IDRETRY  - Botão "Repetir" foi pressionado Exemplo:    if MESSAGEBOX(Application.Handle, "Sair da aplicação", "Saída", MB_ICONQUESTION + MB_YESNOCANCEL + MB_DEFBUTTON2) = ID_YES then       Exit;    Vai apresentar uma janela vinculada a minha aplicação (Application.Handle) com o ícone de interrogação,    botões Sim, Não e Cancelar sendo que o default é o botão Não (MB_DEFBUTTON2). Tanto no texto a ser mostrado como mensagem como no título da janela o tipo esperado é um PChar, portanto, se quisermos mostrar o conteúdo de uma variável deveremos converter para este tipo. Por exemplo: var   Txt1, Txt2: String; begin   Txt1 := "Isto é um teste";   Txt2 := "Belo Horizonte";      MessageBox(Application.Handle, PChar(Txt1), "Teste 1", MB_ICONINFORMATION + MB_OK);   MessageBox(Application.Handle, PChar("Moro em "+Txt2), "Teste 2", MB_ICONINFORMATION + MB_OK); end;

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 16/06/2006 15:47:15
Visualizado..: 16955 vezes
Fonte........: Marcelo Torres