Crear elementos en tiempo de ejecucion

[Tecnic2]

Hola a todos,

Tengo un control TPageControl con una sola pestaña, dentro de él hay un ListView con 3 columnas. Cuando se abre mi aplicación, ésta lee unos determinados registros de una BD, y para cada uno tiene que crear una pestaña nueva igual que la primera, es decir, tendrá un nombre y caption diferentes a las demás pero deberá contener tambien un ListView igual que el primero.

Espero haberme explicado, muchas gracias por adelantado.

[frudolph]

Probá con el siguiente código:

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;
end;

[Tecnic2]

Me ha funcionado perfectamente, muchas gracias, ahora necesito añadir 4 columnas, con su respectivo ancho y caption. Como lo hago?

Gracias.

[Tecnic2]

Ya he descubierto como añadir columnas, lo que se me resiste y no llego a averiguar es cómo aplicarle un estilo de fuente, es decir, quiero que la propiedad Font del LlistView que creo en tiempo de ejecución tenga la letra Verdana y tamaño 8.

Gracias por adelantado.

[Tecnic2]

Una cosa en la que no habia pensado....

Si creo los ListViews en tiempo de ejecución, cómo lo hago para introducir código en sus eventos?
Al no estar creados en el diseño no puedo programarlo !!!

:confused: :confused: :confused:

[pijo]

hola
a ver vamos por partes
para lo de la fuente, con el mismo código que has puesto pero modificando la propiedad FONT del listview que has creado:

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;
end;

En relacion a lo de meter código en los eventos:
Tienes que tener previamente creados los procedures para poderlos asignar en tiempo de ejecución a los eventos del nuevo TlistView, por ejemplo:

procedure TForm1.HacerClick(sender : TObject);
begin
// Lo que se tenga que hacer cuando hacen click
showmessage('Click');
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;

end;

[Tecnic2]

Muchas gracias, era exactamente eso, no sé qué haria sin vosotros.....


GRACIAS.

[Lepe]

por favor, encerrad el código entre

[ delphi ]
aqui vuestro codigo
[ /delphi ]

(sin espacios entre corchetes) Así consigues que respete el identado y aparezca las palabras reservadas en negrita y colores.

Un saludo

procedure Saludos();
begin
ShowMessage(' Un saludo y hasta luego');
end;

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


// 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:


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:


Procedure TForm1Timer1Timer(Sender : TObject);

Var
aListView : TListView;

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


Hasta luego.

;)

[Lepe]

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í :confused:


Un saludo