Detectar o click

31/08/2004

30/08/04
Ass: Detectar o click
Como faço para detectar um click no botão via programação?
exemplo q tentei fazer
if Image1.OnClick Then
ShowMessage(´Teste´);


Luiz_aquino

Respostas

31/08/2004

Fórum Vini

Olá,
para isso você tem que setar o evento dinâmicamente:
procedure TForm1.BotaoClick(Sender: TObject);
begin
  Showmessage(´Clicou no botão!´);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick:= BotaoClick;
end;


Espero ter ajudado,
Vinicius;


Responder Citar