quinta-feira, 9 de dezembro de 2010

on
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;

2 comentários:

  1. Rico material em delphi, simples mas ao mesmo tempo completo.

    ResponderExcluir
  2. Bom dia,

    Muito obrigado pela visita e pelo comentário... Eu ainda tenho muito conteúdo para postar, mas ultimamente ando meio sem tempo para fazer isso..


    Atenciosamente,
    Carlos Henrique Pereira - Analista de TI

    ResponderExcluir