Apostila de Delphi 7.0_______________________________________________________________________ Profa. Gilene B. Gomes ______

__ www.gomeshp.com _________________________________________________________________________ 66

16. EXERCÍCIOS COM FORMULÁRIOS

16.1. EXERCÍCIO PRÁTICO COM DATA E HORA

Crie três formulários em Delphi com os componentes apresentados abaixo:

Salve os arquivos como indicado a seguir:• Unit1 – U_8oForm1.pas• Unit2 – U_8oForm2.pas• Unit3 – U_8oForm3.pas• Project1 – P_8oForms.dpr

Projeto Modifique o ícone da aplicação para Technlgy.ico.1

Certifique o Form1 é o formulário principal.2

Salve todos os arquivos. Ligue o Form1 aos formulários Form2 (U_8oForm2) e Form3 (U_8oForm3)3. Ligue o Form2 ao formulário Form1 (U_8oForm1). Ligue o Form3 ao formulário Form1 (U_8oForm1).

1 Selecione Project / Options, selecione a guia Application.2 Selecione Project / Options, selecione a guia Forms.3 Selecione o formulário e clique no menu File / Use Unit, selecione a Unit desejada.

Apostila de Delphi 7.0_______________________________________________________________________ Profa. Gilene B. Gomes ______

__ www.gomeshp.com _________________________________________________________________________ 67

OBS.: Modifique todas as propriedades antes de implementar os eventos.

Nome doComponente

Propriedades Eventos

Form1 + BorderIcons biMinimize = false biMaximize = false biHelp = falseBorderStyle = bsSingle

BitBtn1 Caption = &HoraGlyph = clock.bmpLayout = blGlyphTop

Ao clicar no botão, deve-se chamar o formulário quemostra a hora, permitindo que se acesse também oformulário principal. Form2.Show;

BitBtn2 Caption = &DataGlyph = date.bmpLayout = lyphBottom

Ao clicar no botão, deve-se chamar o formulário quemostra a data, não permitindo que se acesse aoformulário principal. Form3.ShowModal;

BitBtn3 Caption = &FecharKind4 = bkCloseLayout = blGlyphRight

Nome doComponente

Propriedades Eventos

Form2 BorderStyle = bsSingle Assim que o formulário for mostrado (eventoOnShow) o label deve receber a hora;

Label1 Font = Comic Sans MS14 / Negrito / Vermelho

Timer1 Interval = 2000 A hora do sistema deve ser atualizada a cada doissegundos (evento OnTimer).

Nome doComponente

Propriedades Eventos

Form3 BorderStyle = bsSingle Assim que o formulário for mostrado (eventoOnShow) o label deve receber a data;

Label1 Font = Comic Sans MS14 / Negrito / Azul

4 Este tipo de botão inclui uma figura e um Caption padrão e quando acionado fecha o formulário.

Apostila de Delphi 7.0_______________________________________________________________________ Profa. Gilene B. Gomes ______

__ www.gomeshp.com _________________________________________________________________________ 68

Os formulários devem ter ficado como apresentado a seguir:

Form1 Form2 Form3

Em execução os formulários devem ter ficado como apresentado a seguir:

Form1 Form2 Form3

16.2. EXERCÍCIOS TEÓRICOS SOBRE FORMULÁRIOS

1. Qual é a diferença entre o evento OnClose e o método Close ?2. Qual é a diferença entre os métodos Show e ShowModal ?3. Para que serve a propriedade BorderIcons, quais são suas opções ?4. Quais são as duas formas de modificar a seqüência de acesso aos componentes através

da tecla TAB na execução do projeto ?5. Por que é necessário ligar um formulário a outro ?6. Como é feita a ligação entre formulários através dos menus do Delphi ?7. Como é feita a ligação entre formulários manualmente ?8. Para que serve a propriedade BorderStyle, quais são suas opções ?9. Em um projeto em Delphi que foram incluídos três formulários (Form1, Form2, Form3),

qual é o formulário principal definido pelo Delphi ?10. No exemplo anterior, como se altera o Form2 para ser o formulário principal ?11. O que implica o formulário ser definido como principal ?12. Para que serve a propriedade WindowState, quais são suas opções ?