[Paskal]

Привет всем !
Такой вопрос не могу создать MDI приложение
не могу понять куда вставить этот код
со статьи interface.ru/home.asp?artId=3268 (ЭТО не реклама)

Код:

procedure TfrMain.CreateChildForm 
         (const childName : string); 
  var Child: TfrChild; 
begin 
  Child := TfrChild.Create(Application); 
  Child.Caption := childName; 
end;
 

Помогите плиз новичку
Заранее спасибо!

[lmikle]

Этот код вставляется туда, где ты создаешь дочернее окно. Например, в обработчик меню File -> New.

[Electronic_Arts]

А не проще ли так

Для Form1 меняешь FormStyle на fsMDIForm
создаешь еще одну форму Form2 меняешь значение FormStyle на fsMDIChild

Потом нажимаем Shift+Ctrl+F11 на вкладке Forms выбираем наш Form2 и нажимаем на кнопку ">"
перебрасываем нашу форму со списка Auto-create forms на Available forms(что бы оно автоматически не создавалось вовремя запуска приложения)

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 TForm2.Create(Self);
end;

Вот и всё!

[Paskal]

ВСЕ понял огромное спасибо за ответы.