Crear elementos en tiempo de ejecucion

[Tecnic2]

En cada ListView hay información de una base de datos, información que tengo que actualizar cada cierto tiempo (cada ListView se actualiza en intervalos diferentes), para eso creo un Timer en tiempo de ejecución para cada ListView, al que al crearlo le asigno su intervalo de tiempo.

Entonces, quiero que en el evento OnTimer de cada Timer ejecute la función de actualizar, función que contiene como parámetros el ListView asociado a ese Timer y el nombre de la tabla a actualizar de la base de datos.

Cambia las cosa mi nuevo planteamiento?
Espero haberme explicado.

Muchas gracias.

[jachguate]

Podes valerte de la propiedad TAG del timer. Esta propiedad no tiene un uso particular en la VCL, y es un entero que perfectamente puede contener un puntero ya que son del mismo tamaño.

Entonces, cuando creas el timer y el list view podrias hacer algo como:

Código Delphi [-]
  NuevoTimer := TTimer.Create;
  NuevoListView := TListView.Create(parametros);
  NuevoTimer.Tag := Integer(NuevoListView);  //asocias el listview al timer.

asi, en el evento OnTimer, podrias averiguar cual es el listview asociado asi:

Código Delphi [-]
Procedure TForm1Timer1Timer(Sender : TObject);

Var
  aListView : TListView;

Begin
  aListView := TListView(Pointer((Sender as TComponent).Tag));
  Actualizar(aListView);
End;

Hasta luego.

[[Lepe]]

Empezado por Tecnic2

Cambia las cosa mi nuevo planteamiento?

Pues no sé que tiene que ver lo del timer, con el evento Onclick, ya que el Timer es cosa automática, el ususario no tiene que hacer click en ningun lado

Creo que no te entendí


Un saludo