Crear elementos en tiempo de ejecucion

[Tecnic2]

Por cierto, la función asignada al evento OnClick del ListView creado en tiempo de ejecución puede contener parámetros?

Garcias por adelantado.

[[Lepe]]

El evento OnClick no. pero dentro del evento Onclick, puedes hacer algo genérico y lanzar otro evento, aquí si puedes usar los parámetros que quieras.

Cuando se hace clic en el listview, entra en el HacerClick, en ese evento, miro si hay algun item seleccionado, y lanzo un evento nuevo el Onclick2 que lleva los parámetros que yo quiero, y el programa irá al procedimiento Recibir.

Como no explicas exactamente lo que deseas hacer, yo he pasado 2 parámetros, la propiedad TExt del item seleccionado y el texto de la segunda columna del item seleccionado.

Código Delphi [-]
// Creamos un nuevo evento
type TOnclick2 = procedure (textoItem:string; SubString:string) of object; 

TForm1 = Class(Tform);
...
private Fonclic2:Tonclick2;

public
  OnClick2 : Tonclick2 read Fonclick2 write Fonclick2;

end;
implementation

procedure TForm1.Recibir(texto:string; SubString:string);
begin
  // aqui se llega cuando se haga clic en el listview,
// con los parametros que tu necesitas
end;

procedure TForm1.HacerClick(sender : TObject);
var Texto, subtexto:string;
begin
 if Listview.Selected<>Nil then
 begin
    texto := listview.selected.text;
    subtexto := listview.Selected.String[1];

// con esto lanzamos el evento personalizado
    if Assigned(FOnclick2) then
      FOnclick2(texto, subtexto); 
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
TS: TTabSheet;
TV: TListView;
begin
TS := TTabSheet.Create(Self);
TS.Caption := 'TabSheet' + IntToStr(PageControl1.PageCount + 1);
TS.PageControl := PageControl1;
TV := TListView.Create(Self);
TV.Parent := TS;
TV.Align := alClient;
TV.Font.Name := 'Verdana';
Tv.Font.Size := 8;
Tv.onclick := HacerClick;
TV.Oclick2:= recibir;

Un saludo

[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