Delphi Versão 4.0
Professor Sérgio Furgeri
Aula 6 – Caixas de mensagens e utilização de vários
formulários em um projeto
Dicas
‰ A sintaxe da caixa de diálogo é:
MessageDlg('Mensagem', ,tipo de mensagem, botões,contexto do arquivo help);
Exemplo:
if MessageDlg('Deseja sair da aplicação?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
MessageDlg('Sua aplicação está sendo encerrada.', mtInformation, [mbOk], 0);
Close;
End;
Confira abaixo os tipos de botões e os tipos de mensagens
Botões
Se clicado retorna:
mbYes
mrYes
mbNo
mrNo
mbOK
mrOk
MbCancel
mrCancel
mbHelp
mbAbort
mbRetry
mbIgnore
mbAll
Tipo de mensagem
MtWarning (exibe um ícone
de aviso)
MtError (exibe um ícone de
Erro)
MtInformation (exibe um
ícone de Informação)
MtConfirmation (exibe um
ícone de confirmação)
MtCustom (não exibe
nenhum ícone
mrAbort
mrRetry
mrIgnore
mrAll
o Comandos para controle do form :
Comando
Load form
Ação
Carrega o form mas o deixa invisível
Form.Show [modo] Mostra o form se ele estiver invisível, se
não estiver, então ele primeiro
carrega o form e depois o mostra. O modo é opcional e
refere-se ao form que fez a carga (show) do
Aula 6 - Página 1
Delphi Versão 4.0
Professor Sérgio Furgeri
próximo form. Se modo=1 ou modal então
o form fica parado até a desativação
do novo form. Se modo =0 ou modeless então
continua a sua execução sem se importar com o
próximo form. Ex: Form1.show vbModal ou Form1.show 1
Opcional
Unload form
O form é descarregado da memória e a sua
execução é encerrada
Exemplo 6.1 - Construa um formulário conforme abaixo:
Form 1
Form 2
Passos para a elaboração da aplicação:
1. No evento Click dos menus, coloque o seguinte código:
Menu Cadastro/Pessoas
Unload form1
Form2.show;
Menu Cadastro/Empresas
Unload form1
Form3.show;
Menu Sair
Application.terminate;
2. No evento Click do botão Confirmar, coloque o seguinte código:
if ((edit1.text<>’’) or (edit2.text=’’) or (edit3.text=’’) or (edit4.text=’’)) then
begin
showmessage (‘Dados cadastrados corretamente!’);
end
else
begin
showmessage (‘Há campos vazios.Cadastramento Inválido!’);
end;
Aula 6 - Página 2
Delphi Versão 4.0
Professor Sérgio Furgeri
3. No evento Click do botão Voltar, coloque o seguinte código:
Unload form3;
Form1.show;
Exercício 6.1 - Construa um formulário conforme abaixo:
No botão Pedido, chame o form
utilizando o modal. Ex:
formpedidos.show 1
No form InfoPedido deve ser selecionado a quantidade dos produtos do pedido. Ao se
clicar no Pedido, surge o segundo form de mesmo nome o qual deve conter os produtos do
Pedido, seus respectivos totais e também o total do Pedido.
Aula 6 - Página 3