Duda con un array de Timers

[vejerf]

Buenas a todos,

Tengo la siguiente pregunta: ¿es posible averiguar en un array de Timers qué elemento del array me ha generado el evento, es decir, si es el Timer que ocupa la posición 1 o el de la posición 2...?

Esto lo necesito sin usar el Tag del Timer ya que lo usaría para otra cosa.

Gracias...

[Neftali [Germán.Estévez]]

Si todos llaman al mismo evento, basta con utilizar el parámetro Sender para saber qué Timer está haciendo la llamada.
PREGUNTA ¿Seguro que necesitas un array de Timers?

No te bastaría con un único Timer y diferentes Intervalos de tiempo para hacer diferentes cosas?

[vejerf]

Gracias por tu respuesta Neftali, pero yo lo que necesito es saber la posición que ocupa en el array.

Necesito diferentes Timer y como mucho uno por cada elemento q tenga. Necesito actualizar una serie de elementos en función de un tiempo que me controlará estos Timer. No los tendré creado de inicio, sino que los crearé y liberaré conforme se vayan usando.

[Neftali [Germán.Estévez]]

Para la posición del array sólo se me ocurre que busques por TAG, porque la búsqueda secuencia, siempre será peor.

[[duilioisola]]

Se me ocurre que al momento de crearlos le des un nombre significativo, por ejemplo Timer+PosiciónenArray.

Código Delphi [-]
   ...
   ArrayTimer[Posicion] := TTimer.Create()
   TTimer(ArrayTimer[Posicion]).Name := 'Timer'+IntToStr(Posicion);
   ...

Luego en el evento OnTimer:

Código Delphi [-]
begin
   {Name = TimerNNN - PosicionEnArray = NNN}
   posicionEnArray := StrToInt(copy(TTimer(Sender).Name,6,length(TTimer(Sender).Name-5)));
   ...
end;

[*Caro*]

Hoal vejerf, yo también utilizaría la propiedad Tag, le asignas la misma posición en la que estas creando tu timer y en su evento OnTimer preguntar por su Tag que sería la posición.

Código Delphi [-]
   ArrayTimer[Posicion] := TTimer.Create(Self);
   ArrayTimer[Posicion].Tag := Posicion;
   .........
   ArrayTimer[Posicion].OnTimer := TimerE1;
 
procedure TForm1.TimerE1(Sender: TObject);
begin
 showmessage(IntToStr(TTimer(Sender).Tag));
end;

Saluditos