Ver Mensaje Individual
  #12  
Antiguo 15-06-2005
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 28
jachguate Va por buen camino
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.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita