Hola gcaffe.
Para aclarar el concepto, revisá este [
hilo ].
Entonces podría ser:
Código Delphi
[-]
with PanSvr do
for i := 0 to ControlCount - 1 do
begin
if (Controls[i] is TLabel) then
begin
TLabel(Controls[i]).Left := MapaIzq.Value;
TLabel(Controls[i]).Top := MapaArr.Value;
TLabel(Controls[i]).Caption := MapaTexto.Value;
TLabel(Controls[i]).Width := MapaAncho.Value;
TLabel(Controls[i]).Visible := MapaVisible.Value;
end
else if (Controls[i] is TEdit) then
begin
TEdit(Controls[i]).Left := MapaIzq.Value;
TEdit(Controls[i]).Top := MapaArr.Value;
TEdit(Controls[i]).Width := MapaAncho.Value;
TEdit(Controls[i]).Visible := MapaVisible.Value;
TEdit(Controls[i]).TabOrder := MapaOrden.Value;
end;
end;
Saludos.