Hola RebeccaGL,
Cita:
Empezado por RebeccaGL
Hola Bucanero y gracias por tu ayuda.
Tu código esta bien ahora solo me da el único error de parent no existe.
|
Comentas que te da el error de que no existe la propiedad parent, realmente me parece un error un tanto curioso por que al final en el proceso solo se están utilizando dos objetos "estandard" y ambos con la propiedad parent disponible, el TProgressBar y el TlistViewItem.
En particular, ¿en que parte del código te da el error?:
-En la función GetListView el campo parent es el del TlistViewItem y es el que determina el TListView al que pertenece
-Y en la función AddPRogressBar, el parent es el del progressBar y si no lo ajustas entonces no va a ser visible
Código Delphi
[-]function TListViewItemHelper.GetListView: TListView;
begin
result := (Parent as TListView);
end;
function TListViewItemHelper.AddPRogressBar: TProgressBar;
begin
...
ProgressBar.parent := ListView;
...
end;
No se decirte de donde puede venir el error que comentas. Yo estoy haciendo pruebas en delphi XE7 creando un proyecto totalmente en blanco de multi-dispositivos e insertando en el form un TListView con 3 botones y la unidad con el helper tal como esta aquí publicado y funciona sin problemas.
Aquí te subo el proyecto para que puedas hacer pruebas con el y nos comentas