Exercicio pronto delphi

Exercício 2 - Relógio Despertador

Este projeto contém um outro componente não visível - o TTimer. Este componente gera o evento OnTimer a intervalos regulares determinados em sua propriedade Interval. Esta propriedade esta expressa em milisegundos, ou seja, para que o evento OnTimer ocorra a cada segundo: Interval:=1000. Se Interval:=0 o Timer estará desativado.

Devemos ter cuidado na programação do Timer, porque mesmo ele sendo capaz de gerar um evento a cada milisegundo, o procedimento que trata o evento pode demorar mais do que o valor de Interval, ocorrendo perda de algumas execuções do procedimento ligado a ele, ou se Inteval for muito pequeno pode ocorrer travamento do programa.

Construa o formulário como mostrado abaixo.

[pic]

A propriedade Caption dos Label1 e Label2 deverá estar em branco. No Label1, será apresentada a hora do sistema, e em Label2 a data atual.

O componente RadioGroup permite construir um grupo de botões de opção, utilizamos estes botões quando precisarmos selecionar opções mutuamente excludentes. Só poderá haver um botão de opção selecionado por vez, em cada grupo ou no formulário caso o botão esteja fora de algum grupo.

As opções de escolhas do RadioGroup estão na propriedade Items. Quando selecionamos esta propriedade, a janela String list editor é mostrada, nela editamos os botões de opção do grupo. Entre com as duas opções, como mostrado a seguir.

[pic]

[pic]

Feito o formulário, vamos digitar o código para os eventos associados.

Declare primeiro as variáveis Ligado e Tecla. Ligado indicará qual o botão de opção está selecionado, e Tecla armazenará um caractere digitado no teclado.

implementation

var

Ligado: Boolean;

Tecla: Char;

{$R *.DFM}

Quando o Formulário for criado, o botão Desligado será selecionado através da linha "RadioGroup1.ItemIndex:= 0". A propriedade ItemIndex, indica qual o