Cita:
|
Empezado por jzginez
TSpeedButton(FindComponent(Sender.name)).tag
|
¿Por qué hiciste eso? Bastaba hacer:
Código Delphi
[-]
case TSpeedButton(Sender).tag
1:.......
2:.......
3:.......
End;
Te ahorras la búsqueda con FindComponent cada vez que llames al evento.
En cuanto a lo que quieres ahora, lo veo un poco difícil. Vamos, que no vislumbro otro método que hacer un recorrido por todos los componentes del formulario que sean SpeedButton hasta encontrar el deseado:
Código Delphi
[-]
for I := 0 to ComponentCount - 1 do
if (Components[i] is TSpeedButton) and (Components[i].Tag = ElTagBuscado) then
ShowMessage('Encontrado');
Pero, en general, si se tiene que acceder a un grupo de controles así, yo optaría por establecer un arreglo de controles desde un principio, similar a lo que digo
aquí.
// Saludos