Botão com Vários Códigos Similares

Delphi

14/10/2015

Olá,


Eu tenho 25 botões com códigos similares, a diferença entre eles é apenas o componente que eles irão alterar.
Os botões que eu estou utilizando estão dentro de uma PageControl (e TabSheets) e o valor do PageIndex coincide com a numeração dos componentes que desejo alterar.

Botão 1 (BitBtn1) - ActivePageIndex := 1

mm_passo_1.Lines.Add(lst_passo_1.Items[lst_passo_1.ItemIndex]);


Botão 2 (BitBtn2) - ActivePageIndex := 2

mm_passo_2.Lines.Add(lst_passo_2.Items[lst_passo_2.ItemIndex]);


... Até o último botão

Botão 25 (BitBtn25) - ActivePageIndex := 25

mm_passo_25.Lines.Add(lst_passo_25.Items[lst_passo_25.ItemIndex]);



Como faço para utilizar o mesmo código em todos os botões, sem precisar escrever um código para cada botão?


Desde já agradeço a atenção e ajuda de todos.
Lucas Bernieri

Lucas Bernieri

Curtidas 0

Respostas

Adilson Rumao

Adilson Rumao

14/10/2015

Bom dia, se for realmente o mesmo código que estes botões irão utilizar, recomento a você criar uma Action e apontar o OnExecute para todos os botões.
Ou a criar o evento no primeiro botão, nos demais você apontar o OnClick para todos os botões.
Ou a criar o evento no primeiro botão e nos demais no OnClick BitBtn1.Click;

Particularmente prefiro a primeira opção, veja se isso lhe ajuda.
GOSTEI 0
Lucas Bernieri

Lucas Bernieri

14/10/2015

Olá,

Obrigado pela atenção.

Eu não me expressei bem e não ficou boa a minha explicação do que eu preciso.

Vou precisar abrir um outro tópico.

Bom dia, se for realmente o mesmo código que estes botões irão utilizar, recomento a você criar uma Action e apontar o OnExecute para todos os botões.
Ou a criar o evento no primeiro botão, nos demais você apontar o OnClick para todos os botões.
Ou a criar o evento no primeiro botão e nos demais no OnClick BitBtn1.Click;

Particularmente prefiro a primeira opção, veja se isso lhe ajuda.
GOSTEI 0
POSTAR