Duda con un array de Timers

[*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

[vejerf]

Muchas gracias por vuestras sugerencias...

Me ha gustado tu solución duilioisola aunque debo probarla.

Caro, el problema es que yo ya uso la propiedad tag para otra cosa.

La cosa es que tengo un array de elementos que debo actualizar según el tiempo que tengan definidos. Entonces, lo que se me ocurrió es crearme un array de Timer y colocarlos en la misma posición que su elemento correspondiente, de forma que encontrando la posición del timer que genera el evento tengo el elemento asociado. El tag lo uso para hacer referencia a otro elemento.

Otra solución a mis problemas sería crearme un componente nuevo descendiente de TTimer y con las propiedades que yo necesito, pero es q no sé bien como hacerlo. Lo mismo investigo por ahí...

Muchas gracias de nuevo!!!

[roman]

Yo usaría la opción de Caro, es la más prolija. Ahora, el que uses el Tag para otra cosa no es realmente un impedimento, basta añadirle un poco de imaginación al asunto . La propiedad Tag es un entero y, como tal, puede hacer las veces de apuntador, de manera que puedes definirte una estructura de datos con toda la información que requieras asociar al timer:

Código Delphi [-]
type
  PTimerInfo = ^TTimerInfo;
  TTimerInfo = record
    Indice: Integer;
    {
      aquí un campo por cada dato o referencia
      extra que requieras guardar
    }
  end;

Para asociar una de estas estructuras al timer:

Código Delphi [-]
var
  P: PTimerInfo;

begin
  New(P);
  P.Indice := 84;
  Timer84.Tag := Integer(P);
end;

Para usar la información contenida en el tag:

Código Delphi [-]
var
  P: PTimerInfo;

begin
  P := PTimerInfo(Timer84.Tag);
  ShowMessage(IntToStr(P.Indice));
end;

Y para liberar la memoria:

Código Delphi [-]
Dispose(PTimerInfo(Timer84.Tag));

Si te fijas, de hecho, en TTimerInfo puedes incluso guardar directamente la referencia al elemento que quieres actualizar, sin necesidad del índice.

// Saludos