Вопрос по MDI окнам в Delphi.

[nimbler]

Мне нужно в парограмму добавить MDI окно с несколькими дочерними окнами. Я создаю 2 формы, одна FormStyle = fsMDIForm, другая FormStyle = fsMDIChild. Главная форм появляется нормально, а вот при создании дочерней появляется ошибка "Нет активных MDI окон".

Всё дело в том, что в коде VCL сделано через жопу , что если главная форма не MDI, то в программе не может быть других MDI.

Вот фикс этой проблемы

все mdi формы должны наследоваться от этой формы.
mdichild формы должны иметь владельцем форму mdi, т.е.

TMyMdiChildForm.Create(MyMdiParent)

Я пробовал писать: Например Form3 := TForm3.Create(Form4) вместо Form3 := TForm3.Create(Application) не работает

У меня не очень много опыта в программировании, помогите разобраться как это сделать. Очень надо. С меня пиво или ещё что нибуть!

[-HunteR-]

Попробуйте:

TChildForm.Create(Self); просто создание дочернего окна
MDIChildCount - количество дочерних окон.
(ActivemDIChild as TChildForm) - активное дочернее окно
свойство name у дочерней формы было: ChildForm

Сам сейчас с ними работаю. Вот нашел полезную ссылку:http://articles.org.ru/lection/manywin.php

[nimbler]

Я сделал вот так:

procedure TConsol.FormCreate(Sender: TObject);
var
  RootConsol : TRootConsol;
begin
  RootConsol := TRootConsol.Create(Self);
  RootConsol.Show;
end;

Не помогает, всё равно пишет ошибку.

Как сделать так вот это:

все mdi формы должны наследоваться от этой формы.
mdichild формы должны иметь владельцем форму mdi, т.е.

TMyMdiChildForm.Create(MyMdiParent)

[Toxa]

при создании TForm3 на обработчик напиши
application.createform(TForm3,Form3 );
Form3.show;
у меня этот код работает очень успешно

[nimbler]

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

при создании TForm3 на обработчик напиши
application.createform(TForm3,Form3 );
Form3.show;
у меня этот код работает очень успешно

Написал вот так:

procedure TConsol.FormCreate(Sender: TObject);
var
  RootConsol : TRootConsol;
begin
  application.createform(TRootConsol,RootConsol );
  RootConsol.show;
end;

Всё равно выдаёт ошибку:


Consol - MDI форма, вся проблема что она неглавная в проекте
RootConsol - MDIChild

Вот что пиблизительно должно получиться:


PS: я пишу эмулятор интерфейса Windows.

[Toxa]

а что за ошибку выдает?

[nimbler]

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

а что за ошибку выдает?

вот:


Типа нет MDI форм

[Toxa]

сори, не видел, картинки отключены.
а покажи код dpr-ника

[nimbler]

program YaWin;

uses
  Forms,
  LogoScreen in 'LogoScreen.pas' {LogoForm},  //Главная форма она запускается
  Udecktop in 'Udecktop.pas' {fmMain},            
  uParent in 'uParent.pas' {ParentForm},
  uSettings in 'uSettings.pas' {Wnd_Settings},
  uExit in 'uExit.pas' {SupDown},
  uConnectWiz in 'uConnectWiz.pas' {ConnectWiz},
  uPerform in 'uPerform.pas' {Wnd_perform},
  uConnectProp in 'uConnectProp.pas' {ConnectProp},
  uAbvConnProp in 'uAbvConnProp.pas' {AbvConnProp},
  uIPSecSettings in 'uIPSecSettings.pas' {IPSecSett},
  uConsol in 'uConsol.pas' {Consol},        // MDI форма
  uRootConsol in 'uRootConsol.pas' {RootConsol}, // MDI Child
  uIE in 'uIE.pas' {IE},
  uConnectSett in 'uConnectSett.pas' {ConnectProp2},
  uOsnAdd in 'uOsnAdd.pas' {Lab4_add},
  uOsnAdd2 in 'uOsnAdd2.pas' {Lab4_add_os},
  uAbout in 'uAbout.pas' {AboutForm};

{$R *.res}

begin
  //with Application do
  Application.Initialize;
  Application.CreateForm(TLogoForm, LogoForm);
  Application.CreateForm(TfmMain, fmMain);
  Application.Run;
end.

[Toxa]

сори что поздно отвечаю
а LogoForm случаем не дочерняя форма?