Caixas de Diálogo em Delphi 7

O Delphi oferece vários comandos para exibição de caixas de diálogos comuns, como caixas de mensagem (MessageBoxes) e caixa de entrada(Input Boxes). Esses comandos permitem que aplicativos com recursos simples de entrada e saida sejam criados rapidamente.

1.Usando o comando ShowMessage:
Use o comando ShowMessage para mostrar uma mensagem simples para o usuário. A mensagem é exibida em uma pequena caixa, com um botão OK. A caixa é fechada quando o botão OK é clicado. No exemplo a seguir, uma caixa de mensagem é exibida quando o botão button1 recebe um clique:

Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Exemplo de caixa de diálogo simples.');
end;

Como padrão, é exibido o nome do projeto na barra de título da caixa de mensagem.

2. Usando o comando MessageDlg:
O comando MessageDlg mostra uma caixa de mensagem que pode conter símbolos especiais, botões adicionais e outros elementos. O comando tem vários parâmetros que devem ser especificados. Veja a sintaxe do comando MessageDlg:

Código:
MessageDlg(<Mensagem>,<Tipo da Caixa>, <Botões>, <Número de ajuda>);

<Mensagem> é um trecho de texto entre aspas simples, como para o comando ShowMessage.
<Tipo da Caixa> determina o símbolo que será exibido na parte esquerda da caixa. Os cinco tipos dísponíveis serão mostrados em código para exibir cada tipo de caixa(em exemplo).

Mensagem de informação:

Código:

MessageDlg('Mensagem de Informação', mtInformation, mbOKCancel,0);

Mensagem de aviso;
Código:

MessageDlg('Mensagem de Aviso', mtWarning, mbOKCancel,0);

Mensagem de erro:
Código:

MessageDlg('Mensagem de Erro', mtError, mbOKCancel,0);

Mensagem de confirmação:
Código:
MessageDlg('Mensagem de Confirmação', mtConfirmation, mbOKCancel,0);

O parâmetro <botões> é usado para definir o conjunto de botões que será exibido na parte de baixo da caixa de mensagem. Aqui vão eles:

mbYesNoCancel: Mostra os botões Yes, No, Cancel.
mbAbortRetryIgnore: Mostra os botões Abort,Retry e Ignore.
mbOKCancel: Mostra os botões OK e Cancel.

3. Usando a função MessageBox:
Esta função pertence à biblioteca do Windows (API). O Delphi a relaciona ao objeto do tipo TApplication.

Código:
Application.MessageBox(<Mensagem>, <Título>, <Tipo>);

Argumento Tipo para a função MessageBox:

Código:
Valor	Significado
0	Somente o botão de OK
1	Botões de OK e Cancelar
2	Botões Anular, Repetir e Ignorar
3	Botões Sim, Não, Cancelar
4	Botões Sim, Não
5	Botões Repetir e Cancelar
16	Sinal de Stop
32	Sinal de Pesquisa
48	Sinal de Aviso
64	Ícone de Informação

Agora.. vocês devem estar se perguntando: "E se a pessoa clicar em 'Yes', ou algum botão, como inserir a função?"
Irei explicar agora:

As respostas são como valores... exemplo:

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
resposta:integer;
begin
resposta:=application.messagebox
('Deseja sair do programa?','Sair',36);
if Resposta=7 then
close;
end;
If Resposta

Aqui segue uma tabela dos numeros dos botões que foram pressionados:
Código:

Valor	Significado
1	Botão OK foi pressionado
2	Botão Cancelar foi pressionado
3	Botão Anular foi ***pressionado
4	Botão Repetir foi pressionado
5	Botão Ignorar foi pressionado
6	Botão Sim foi pressionado
7	Botão Não foi pressionado

4.Função InputBox:
Essa função mostra a caixa simples com um campo para a entrada(um componente Edit) de dadose os botões OK e
Cancel. InputBox retorna uma String com o texto digitado pelo usuário. A função InputBox recebe três parâmetros:

Código:
InputBox (<Título da Caixa>, <Texto do prompt>, <Texto padrão>);
<Título da caixa> define o texto que é exibido na barra de título da caixa.
<Texto do prompt> é o texto exibido na parte interna da caixa.
<Texto padrão> éo texto padrão exibido dentro do campo de entrada. Este texto aparece inicialmente selecionado. Para não mostrar um texto padrão use um string vazio(''). Veja um exemplo a seguir:

Código:
InputBox('Nome','Digite seu nome:','');
Para recuperar o que foi digitado na InputBox, use uma variável para armazenar o valor. No exemplo a seguir, é usada uma variável 'MeuNome', do tipo String:

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
MeuNome: String;
begin
MeuNome := InputBox ('Nome', 'Seu nome é:', '');
ShowMessage('Nome digitado foi: ' + MeuNome);
end;