generar tshape en tiempo de ejecucion
Publicado por armando montoya (28 intervenciones) el 17/04/2003 20:42:56
gracias por leer mi pregunta, necesito saber como puedo hacer para que los componentes creados en tiempo de ejecucion se vean en mi form, si tengo el siguiente codigo, pero no aparecen:
var
NewDisk:TPanel;
I:Integer;
begin
For I:=1 To StrToInt(meDiscos.Text) Do
Begin
NewDisk:=TPanel.Create(vtTorresDeHanoi);
NewDisk.Name:='Disco'+IntToStr(I);
NewDisk.Color:=clYellow;
NewDisk.Width:=130-(I*10);
NewDisk.Height:=10;
NewDisk.Top:=450-(I*10);
NewDisk.Left:=110-(NewDisk.Width Div 2);
NewDisk.Visible:=True;
End;
end;
var
NewDisk:TPanel;
I:Integer;
begin
For I:=1 To StrToInt(meDiscos.Text) Do
Begin
NewDisk:=TPanel.Create(vtTorresDeHanoi);
NewDisk.Name:='Disco'+IntToStr(I);
NewDisk.Color:=clYellow;
NewDisk.Width:=130-(I*10);
NewDisk.Height:=10;
NewDisk.Top:=450-(I*10);
NewDisk.Left:=110-(NewDisk.Width Div 2);
NewDisk.Visible:=True;
End;
end;
Valora esta pregunta


0