Hola:
En una ventana tengo varios Panels en uno de ellos hay varios componentes, los cuales debo colocar y modificar sus propiedades dependiendo del perfil del usuario. En definitiva se arman varias plantillas, las propiedades de los componentes estan en un TClientDataSet en memoria, para hacer esto utilizo el siguiente código: (el Nombre del panel es PanSrv y del ClientDataset es Mapa)
Código Delphi
[-]
for i := 0 to ComponentCount - 1 do begin
if Components[i].GetParentComponent.Name = 'PanSrv' then begin
if (Components[i] is TLabel) then begin
TLabel(Components[i]).Left := MapaIzq.Value;
TLabel(Components[i]).Top := MapaArr.Value;
TLabel(Components[i]).Caption := MapaTexto.Value;
TLabel(Components[i]).Width := MapaAncho.Value;
TLabel(Components[i]).Visible := MapaVisible.Value;
end
else if (Components[i] is TEdit) then begin
TEdit(Components[i]).Left := MapaIzq.Value;
TEdit(Components[i]).Top := MapaArr.Value;
TEdit(Components[i]).Width := MapaAncho.Value;
TEdit(Components[i]).Visible := MapaVisible.Value;
TEdit(Components[i]).TabOrder := MapaOrden.Value;
end;
end;
end;
este código funciona perfectamente, pero como podrán comprobar necesito recorrer todos los componentes del TForm, y son muchos, lo cual es rápido pero no es lo mas eficiente, así que pense recorrer solo los componentes del TPanel y realice este código:
Código Delphi
[-]
with PanSrv do begin
for i := 0 to ComponentCount - 1 do begin
if (Components[i] is TLabel) then begin
TLabel(Components[i]).Left := MapaIzq.Value;
TLabel(Components[i]).Top := MapaArr.Value;
TLabel(Components[i]).Caption := MapaTexto.Value;
TLabel(Components[i]).Width := MapaAncho.Value;
TLabel(Components[i]).Visible := MapaVisible.Value;
end
else if (Components[i] is TEdit) then begin
TEdit(Components[i]).Left := MapaIzq.Value;
TEdit(Components[i]).Top := MapaArr.Value;
TEdit(Components[i]).Width := MapaAncho.Value;
TEdit(Components[i]).Visible := MapaVisible.Value;
TEdit(Components[i]).TabOrder := MapaOrden.Value;
end;
end;
end;
Para mi sorpresa este código no funciona porque PanSrv.ComponentCount siempre devuelve cero
, sencillamente no se ejecuta.
Alguien me puede decir que estoy haciendo mal.
Muchas gracias