Buscar

Sender - objeto

Código

{O Sender representa o nome do objeto que está chamando tal evento. Adicione 3 botões e modifique seus nomes ( Name ) : A, B, C. No evento onClick do botão A }
procedure TForm1.AClick(Sender: TObject);
begin
  if ( Sender = A ) then
  ShowMessage('Botão A');
  if ( Sender = B ) then
  ShowMessage('Botão B');
  if ( Sender = C ) then
  ShowMessage('Botão C');
end; {depois direcione o evento onClick dos outros botões B e C para o evento onClick do botão A, execute e saia clicando }

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 7134 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009