disparar um evento dentro de outro
tenho dois botões, o botão 1 tem um procedimento no evento on click.
Gostaria de saber se no botão 2, depois de uma parte do código, chama-se o procedimento do botão 1, só para não ter que copiar todo o procedimento novamente.
Gostaria de saber se no botão 2, depois de uma parte do código, chama-se o procedimento do botão 1, só para não ter que copiar todo o procedimento novamente.
Danielle Ballester
Curtidas 0
Respostas
Luizfernando777
16/11/2003
Vc já tentou colocar
Button1.Click;
seria como se estivesse precionando
o botão 1.
Button1.Click;
seria como se estivesse precionando
o botão 1.
GOSTEI 0
Raserafim
16/11/2003
para chamar um evento dentro de outro, é só você colocar o nome do procedimento do evento que você quer e passar como parâmetro a variável global Self.
exemplo:
[b:2e0b3f4a5a]procedure[/b:2e0b3f4a5a] TForm1.Button1Click(Sender: TObject);
[b:2e0b3f4a5a]begin[/b:2e0b3f4a5a]
showmessage(´botão 1´);
[b:2e0b3f4a5a]end;[/b:2e0b3f4a5a]
[b:2e0b3f4a5a]procedure[/b:2e0b3f4a5a] TForm1.Button2Click(Sender: TObject);
[b:2e0b3f4a5a]begin[/b:2e0b3f4a5a]
Button1Click(Self);
showmessage(´botão 2´);
[b:2e0b3f4a5a]end;[/b:2e0b3f4a5a]
exemplo:
[b:2e0b3f4a5a]procedure[/b:2e0b3f4a5a] TForm1.Button1Click(Sender: TObject);
[b:2e0b3f4a5a]begin[/b:2e0b3f4a5a]
showmessage(´botão 1´);
[b:2e0b3f4a5a]end;[/b:2e0b3f4a5a]
[b:2e0b3f4a5a]procedure[/b:2e0b3f4a5a] TForm1.Button2Click(Sender: TObject);
[b:2e0b3f4a5a]begin[/b:2e0b3f4a5a]
Button1Click(Self);
showmessage(´botão 2´);
[b:2e0b3f4a5a]end;[/b:2e0b3f4a5a]
GOSTEI 0