buscar componentes

[roman]

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

[jzginez]

Hola Roman gracias por tu respuesta, probare lo que me recomiendas, en cuando al ejemplo que puse realmete se me ocurio en el momento de escribir este tema por eso la instrucción quedo medio rara pero solo era para ayudar a segun yo dar una mejor idea de lo que hago y quiero hacer.


Gracias