Доброе время суток.
Делаю по демке.
http://kolmck.net/demos/DemoMDI.zip
вот что получается
код:



При закрытии главной формы вылетает.

Remove this line:

> Remove this line:
>
> applet.Add2AutoFree(form);

Thank you. But this is not enough still flies on the event form is closed.

Try this:

Доброе время суток.
to Jon: Just one question: This example works on your computer?

Во общем хотел поделится следующим.
Покопавшись архиве нашел следующее:

Fregl ©  (11.01.07 13:15)  [13]

у меня проблема в MDI следующая - если созать несколько MDI окон, а потом их закрывать, то после закрытия последнего вылетает ошибка, либо же при закрытии приложения вылетает ошибка на RefDec.
Нужно ли дочерние окна добавлять в список AutoFree контрола MDIClient?

В моём примере, если убрать Dummy:pointer;, то становиться понятным, что ошибка или это не ошибка одна и та же.

Идём дальше в при компиляции используется файл KOL_ASM.inc
в который и входит function TObj.RefDec: Integer;

Смотрим в следующем контексте возникнет ли эта ошибка в более ранней версии кол. Взял то что было у меня VERSION 1.91 другой по рукой не было. Компилим запускаем смотрим закрываем всё нормально.

Идём ещё дальше. Решил посмотреть под другим взглядом. Берём SpeedKompiler. Из ветки http://pda.delphimaster.net/?id=1279707215&n=10.
Готовим проект в новой папке оставляем только Project1.dpr+ файл Project1.res. Компилим SpeedKompilerом. Запускаем запускаем смотрим закрываем всё нормально.:)
http://zalil.ru/29682480
Берём пример Jon'а снова готовим. Компилим SpeedKompilerом. Запускаем запускаем смотрим закрываем и опять всё нормально.:)
http://zalil.ru/29682483

> to Jon: Just one question: This example works on your computer?


Yes, it works. No errors. Here is my project: http://zalil.ru/29683785
What problems are you having? I shall try to help if I can.

Спасибо Jon. Твой вариант работает, но при компиляции на моёй машине и закрытии главной формы появляется ошибка:
CPU
ntdll.DbgBreakPoint:
  7C90120E CC int 3
->7C90120F C3 ret
____________________________
KOL_ASM.inc.9323:ret
  00404587 C3
Но если запустить ехешник, то ошибки нет. Всё работает.
А здесь нормально.:)

В этих случаях
http://zalil.ru/29682480

http://zalil.ru/29682483
ошибка возникает при закрытии 1ой MDIChild.
Если их больше не возникает.

Very strange - the exe in "Mdiforms_by_Jon_on_kompiler.rar" works correctly for me.
What version of Delphi and what version of KOL? I use D7 and KOL 2.94++

Maybe try this:

Спасибо Jon.
"Mdiforms_by_Jon_on_kompiler.rar" works correctly for me.
Yes, it works correctly.

I took your project and do compilation in my D7, and KOL 2.90.

error occurs when closing the first MDIChild.


does not work the same

I'll try the same test in the newer versions of KOL.

MDIChild := NewMDIChild(MDIClient, 'MDI Client').SetClientSize(320, 200);
MDIClient.Add2AutoFree(MDIChild);
does not help, the same error

I'll try the same test in the newer versions of KOL.

Do you want me to send you my KOL files?

What files do I need to send you? If your program works. :)
It's my error. Through speedkompiler will compile and it will work. It works correctly.

There seems to be a bug in the MDI implementation.

In the example from [3] try this:
- Start the program
- Maximise the existing MDI child
- Menu > New > Create MDI Child

Bug #1: All child windows return to restored state
Bug #2: Existing MDI child has no caption
Bug #3: New MDI child cannot be manipulated

- Close the application

Bug #4: Application crash with error

The problem seems to be with maximising the MDI child.
I have tested with both KOL v2.xx and v3.00..

No, UseDelphiMemoryManager is only valid when using the replacement system files.
The bugs that I reported are present all of the time.
Hopefully Vladimir has an answer...

Suggestions, anyone, please?

program MDI_test;

uses
Windows, Messages, KOL;

var
MDIClient, MDIChild, Panel: PControl;
MainMenu: PMenu;
i:integer;
procedure CreateMDIChild;
begin
inc(i);
MDIChild := NewMDIChild(MDIClient, 'MDI Client '+int2str(i)+' '+Date2StrFmt('ddMMyyyy',Date)).SetClientSize(320, 200);
MDIChild.Border := 10;
Panel := NewPanel(MDIChild, esRaised).SetAlign(caClient);
Panel.Border := 2;
MDIClient.CreateWindow;
 MDIClient.Perform(WM_MDICASCADE, 0, 0)
end;

procedure MenuItems(Dummy: Pointer; Sender: PMenu; Item: Integer);
var j:integer;
begin
case Item of
  1: CreateMDIChild;
  3: MDIClient.Perform(WM_MDITILE, MDITILE_VERTICAL, 0);
  4: MDIClient.Perform(WM_MDICASCADE, 0, 0);
  5: begin for j:=0 to 699 do CreateMDIChild end;
end;
end;

begin
//UseDelphiMemoryManager;
Applet := NewForm(nil, 'MDI test').SetPosition(240, 120).SetClientSize(380, 280);
Applet.Font.FontName := 'MS Sans Serif';
MainMenu := NewMenu(Applet, 0, ['New', '(', 'Create MDI Child', ')', 'Window', '(', 'Tile', 'Cascade','MaxMDIChild', ')', ''], TOnMenuItem(MakeMethod(nil, @MenuItems)));
MDIClient := NewMDIClient(Applet, 0).SetAlign(caClient);
CreateMDIChild;
Run(Applet);
end.

- Start the program
Maximise the existing MDI child
with Select MaxMDIChild create 701 MDIChild

- Close the application
 No error KOL v3.00 M

Confirmed. Sorry, if you close  Application without IDE-> the Application crash with error.

As I said, the problem is with a MDI maximise (WM_MDIMAXIMIZE):

SendMessage(MDIChild.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);
  //something like this