Всем привет.
Не пойму в чем проблема, создаю модальную форму, на ней в onCreate должны динамически создаваться компоненты, но они создаются только если владельцем является панель. В чем может быть дело?
Тут все прекрасно работает
Код:
1 2 3 4 5 6 7 | procedure TForm1 . FormCreate(Sender: TObject);
var
Memo: TMemo;
begin
Memo:= TMemo . Create(Form1);
Memo . Parent:= Form1;
end ;
|
А тут нет
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure TForm1 . btn1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2:= TForm2 . Create(Application);
Form2 . ShowModal;
end ;
procedure TForm2 . FormCreate(Sender: TObject);
var
Memo: TMemo;
begin
Memo:= TMemo . Create(Form2);
Memo . Parent:= Form2;
end ;
|