Array
(
)

Detectar o click

Luiz_aquino
   - 31 ago 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´);


Fórum Vini
   - 31 ago 2004

Olá,
para isso você tem que setar o evento dinâmicamente:
#Código

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;