NumLock , у меня не выходит. Наверное руки кривые, вот мой код:
Form:
Код:
form:=tform.Create(scrollbox1);
form.parent:=scrollbox1;
form.left:=10;
form.top:=10;
form.width:=150;
form.height:=150;
form.BorderIcons:=[biMinimize,biMaximize];
form.Name:='Имя формы';
form.Show;
Shape
Код:
meb:=tshape.Create(self);
meb.parent:=Application.FindComponent('Имя формы') as TForm;
meb.left:=0;
meb.top:=0;
meb.width:=50;
meb.height:=50;
meb.Name:='Имя фигуры';
Но в форму shape так и недобавляеться...