disparar um evento dentro de outro

Question

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.

Luizfernando777 · Answer

Vc j� tentou colocarButton1.Click;seria como se estivesse precionandoo bot�o 1....

Raserafim · Answer

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]

F�rum disparar um evento dentro de outro #195340