Asignar una funcion al evento on click
 

Hola buenas, estoy haciendo una aplicacion en la que tengo que poner muchos botones (unos 50) que hagan casi lo mismo, por lo que esta pensando usar un array de botones para poder modificar caracteristicas como captions, posiciones, colores y cosas asi mediante un for, pero tengo problemas al asignar el metodo OnClick, ya que no puedo hacer:

boton1.Onclick := 'procedure'+i;


¿Como puedo hacer algo asi?


Muchas gracias.

La idea es buena, lo que debes hacer es asignar a los 50 botones el mismo evento.

Código Delphi [-]
   boton1.Onclick := MyOnClickProcedure;
   boton2.Onclick := MyOnClickProcedure;
  ...

Dentro del procedimiento y utilizando el parámetro Sender puedes saber cual de los 50 botones es el que ha hecho la llamada.

Hola abmicros, como te dice Neftali lo mejor es que asignes el mismo evento a todos tus botones y utilizar el parametro Sender, algo que también te podría ayudar es la propiedad Tag de cada boton dandole un numero correlativo, de esa forma puedes hacer esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Case TButton(Sender).Tag of
  1 : Showmessage(TButton(Sender).Name);
  2 : Showmessage(TButton(Sender).Name);
  ................................
  ................................
 end;
end;

Saluditos

Hola,
puedes hacer tal cual habias planteado al principio (buscando el metodo mediante su nombre en una cadena y asignandolo a OnClick). Echale un vistazo a este truco. Un saludo.

Solucionado
 

Muchas gracias, me ha funcionado tal cual queria usando el sender y el tag del boton.