[Delphi #3] Eventos

[Dark Skyllen 7]

Delphi - #3

 

 

Nessa aula iremos conhecer os eventos de alguns componentes, que são muito utilizados.

 

 

• Os eventos
  

Cada componente possui diferentes eventos, esses eventos são como acontecimentos ao longo da execução do programa. Podemos ver os eventos de um componente, selecionando o componente e trocando a Aba Properties para a aba Events:

 

 

 

Assim que você mudar a aba verá os eventos do componente. Os eventos variam de componente para componente.

 

Dando dois cliques na frente do nome do evento, você entrará na parte de algoritimo e o código que você digitar lá, será executado no evento:

 

Explicando alguns eventos básicos:

 

Colocando um código nesses eventos em algum componente, ele será ativado:

 

OnActivate: Quando fica ativo, fica em primeiro plano.

OnClick: Quando é clicado.

OnClose: Quando é fechado.

OnCreate: Quando o componente/formulário selecionado é criado.

OnDblClick: Quando acontece um double click (dois cliques)

OnDeactive: Quando fica desativo, outra coisa está em primeiro plano.

OnDestroy: Quando é destruido.

OnHide: Quando usado o comando Hide (geralmente para formulário)

OnKeyDown: Quando uma tecla é "afundada"

OnKeyPress: Quando uma tecla é pressionada

OnKeyUp: Quando a tecla é solta.

OnMouseDown: Quando um botão do mouse é "afundado"

OnMouseMove: Quando o mouse se move

OnMouseUp: Quando um botão do mouse é solto

OnMouseWheel: Quando você roda aquela bolinha que alguns mouses tem.

OnMouseWheelDown: Quando aquela bolinha é "afundada"

OnMouseWheelUp: Quando aquela bolinha é solta.

OnPaint: Quando algo é desenhado (Geralmente com formulários, quando é feito o desenho do mesmo.)

OnResize: Quando o "tamanho" é modificado.

OnShow: Quando é exibido.

 

 

 

 

Agora vamos usar alguns exemplos, para aprenderemos melhor.

Siga os passos:

 

 

1. Crie um projeto novo
   
2. Nesse formulário, coloque 2 edits, 1 botão e 1 label
   

Dê duplo clique no botão e o código que aparecer estara assim:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Mude para:

 

procedure TForm1.Button1Click(Sender: TObject);
var
Soma: integer;
begin
Soma := StrToInt(Edit1.Text)+StrToInt(Edit1.Text);
Label1.Caption := IntToStr(Soma);
end;

Explicando o código:

var
Soma: integer;

Indica que Soma é uma variável do tipo inteiro. Para quem não sabe, variáveis são "pedacinhos" de memória utilizadas para guardar algum valor.

 

  Soma := StrToInt(Edit1.Text)+StrToInt(Edit1.Text);
 Label1.Caption := IntToStr(Soma);

O comando StrToInt transformar valores string (texto) para inteiros e o comando IntToStr faz exatamente o inverso. Então transformamos o que está escrito no edit1.text para inteiro e somamos com o que está escrito no edit2.text. Atribuimos o resultado na variável Soma. Depois, transformamos Soma em String para podermos exibi-la em um Label.

 

 

Agora, selecione o formulário e procure a propriedade OnCreate do formulário. Na frente do escrito, terá um espacinho em branco, dê dois cliques no espacinho e coloque o seguinte código:

 

  Form1.Caption := 'Programa exemplo - Aula OTNET';

Isso alterará a o título da janela do nosso programa, assim que o formulário for criado.

 

 

Bom, por enquanto é só pessoal, espero ter ajudado. Qualquer dúvida estou sempre no canal #otnet do IRC e estarei sempre disposto a tirar dúvidas.

 

Abraços

 

 

 

 

 

 

 

[haxyy 0]

Muito bom!