Problema con Asignacion a un Objeto.
Hola.
Tengo 150 objetos Tpanel y dentro de estos e incustrado un objeto Updown, y los he relacionado para que incrementen. Sin problema.
Ahora quiero ponerlos a un valor determinado en ejecución:....creo un boton y con el evento BitBtnClick quiero hacer la asignacion y este es el código que no me funciona....
procedure TPANEL1.BitBtn1Click(Sender: TObject);
var a,resto:smallint;
cad:string;
begin
for a:=1 to 150 do begin
resto:= a mod 2;
if resto=0 then begin
'Updown'+inttostr(a)+'.Position':=999;
end
else begin
'Updown'+inttostr(a)+'.Position':=0;
end;
end;
end;
Un saludo. Tenéis un portal de muy excelente a muy excelentísimo.
Última edición por BEPAI fecha: 02-04-2007 a las 10:52:52.
|