[Shevalye]

Подскажите пожалуйста. У меня есть n форм, и их имена. Мне нужно добавить компонент в определенную форму (зная имя формы). Как это сделать. У меня код:

Код:

meb:=tshape.Create(self);
meb.parent:=(findcomponent('Имя формы') as TForm); (Проблема в этом. Я не знаю, как назначить родителем динам. форму, зная ее имя)
meb.left:=0;
meb.top:=0;
meb.width:=100;
meb.height:=100;
...

MAD: теги

Если я назначал
meb.parent:=formvalue; (при formvalue=переменна дин. форм. То компонент добавлялся в последнюю созданную форму)

[NumLock]

Код:

  with TButton.Create(Self) do
  begin
    Parent:=Application.FindComponent('Form2') as TForm;
  end;

работает 100%

[Shevalye]

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 так и недобавляеться...

[Bargest]

В чем выражается это "недобавляеться"?
Если не видно, то первое, что приходит в голову - meb.Visible := true.

[Shevalye]

Сообщение от Bargest

В чем выражается это "недобавляеться"?
Если не видно, то первое, что приходит в голову - meb.Visible := true.

Выражается в том, что ничего не происходит. Ошибок не выдает, но и компонента на форме нету. Visible не помогает.

[@Rafa3L]

Родительская форма фигуры не "видна" приложению т.к. она относится к скроллбоксу, нужно искать везде

Код:

...
meb.Parent:= FindComponent('Имя формы') as TForm;
...

З.Ы. или ещё лучше делать так

Код:

with TShape.Create(self) do
 begin
  Parent:= ScrollBox1.FindChildControl('Имя формы') as TForm;
  Left:= 0;
  Top:= 0;
  Width:= 50;
  Height:= 50;
  Name:= 'Имя фигуры';
 end;

4250

[Shevalye]

@Rafa3L , спасибо вам большое! Все работает..