Crear elementos en tiempo de ejecucion

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

[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

Código Delphi [-]
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.