Código Delphi
[-]
For j:=1 to 6 do
begin
MisBotonesPrincipales[j]:=TButton.Create(Self);
case j of
1:MisBotonesPrincipales[j].OnClick:= MiBotonSociosClick;
2:MisBotonesPrincipales[j].OnClick:= MiBotonLibrosClick;
3:MisBotonesPrincipales[j].OnClick:= MiBotonPrestamosClick;
4:MisBotonesPrincipales[j].OnClick:= MiBotonDevolucionesClick;
5:MisBotonesPrincipales[j].OnClick:= MiBotonHistoricoClick;
6:MisBotonesPrincipales[j].OnClick:= MiBotonPendientesClick;
end;
end;
poco óptimo pero debe de funcionar