Objetos clonados

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[champy]

Supongo que habrán distintas formas de hacerlo pero yo utilizaría la función FindComponent('NombreDelComponente'), algo así.

Código Delphi [-]
Procedure CambiarHeight;
var
  Shap : Tshape;
  N : Integer;
begin
  For N := 1 to 5 do
  begin
    (FindComponent('Shape'+IntTosTr(N)) as Tshape).Height := 100;
  end;
End;