Ver Mensaje Individual
  #2  
Antiguo 20-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita