5-Exemplo

Segue mais um exemplo básico de manipulação de propriedades e eventos.

1. Selecione a página Standard na paleta de componentes e clique no componente Button. A seguir clique no form. Um botão deve aparecer no form. Coloque mais dois botões.

2. Alinhe na horizontal os dois primeiros e coloque o terceiro logo abaixo dos dois. Se quiser um alinhamento exato, use a opção Edit/Align... do menu. Para marcar mais de um componente, deixe o Shift pressionado enquanto clica os componentes. Brinque um pouco com o tamanho dos botões e do form.

3. Clique no primeiro botão para selecioná-lo, a seguir procure no Object Inspector a propriedade Caption. Mude a string para “ON”. Para o segundo botão a string é “OFF” e para o terceiro “Close”. Para o segundo botão, mude a propriedade Enabled para False.



4. Neste ponto é uma boa idéia renomear e salvar o projeto. Escolha a opção File/Save Project As...Selecione o diretório criado para o projeto e use o nome Main.pas para a unit1 e TOP5 para o projeto.

5. Clique na área pontilhada do form e em seguida ache a propriedade Caption no Object Inspector. Mude a string para “TOP5”. Aproveite e mude a propriedade Name para “FMain”.

6. Dê um clique duplo sobre o primeiro botão. A janela de código será ativada já com a função correspondente ao evento OnClick criada e posicionada sob o cursor. Digite o seguinte código:

Button1.Caption := ‘OFF’;
Button1.Enabled := False;
Button2.Caption := ‘ON’;
Button2.Enabled := True;

7. Selecione a janela do form e faça o mesmo com o segundo botão, mas o código fica invertido:

Button2.Caption := ‘OFF’;
Button2.Enabled := False;
Button1.Caption := ‘ON’;
Button1.Enabled := True;

8. Finalmente para o terceiro botão o código é simplesmente:

Close;

9. Já podemos executar o programa pressionando F9.



O que está acontecendo? O evento OnClick ocorre sempre que clicamos o mouse sobre um componente. O Delphi se encarrega de determinar qual é o componente que deve responder ao evento e direciona o evento para ele. Neste caso, usamos este evento para ativar/desativar botões manipulando a propriedade Enabled, que determina se o componente está ativo ou não. Quando o componente está inativo, ele não responde aos eventos. Também usamos a propriedade Caption para mudar a mensagem que aparece nos botões. Finalmente usamos o método Close do form para fechar a aplicação.