Проблемы со сворачиванием форм

[Altera]

Привет всем!
В общем проблема заключается в том, что когда я сворачиваю главное окно, то сворачиваются и все остальные окна моего приложения. Пробовал решить эту задачу дав каждому окну свою кнопку на панели задач. ( http://narod.yandex.ru/cgi-bin/yandm...0=636959456&p= ) но всёравно при сворачивании одного окна сворачиваются все окна приложения

[BaronTreep]

В главном проекте:

program Project1;

uses
  Forms, Windows,
  ...

{$R *.RES}

begin
  ...
  Application.Initialize;
  SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  ...
end.

А в модуле главной формы так:

type
  TMForm = class(TForm)
  ...
  private
    ...
  public
    ...
  protected
  procedure CreateParams(var p: TCreateParams); override;
  procedure WMSysCommand(var m: TMessage); message WM_SYSCOMMAND;
  end;

...


procedure TMForm.CreateParams(var p: TCreateParams);
begin
  inherited;
  p.WndParent := 0;
end;

procedure TMForm.WMSysCommand(var m: TMessage);
begin
   m.Result := DefWindowProc(Handle, m.Msg, m.wParam, m.lParam);
end;

Добавлю что сие означает - в Дельфи главным является форма TAplication, она имеет нулевой размер и сней асоциирована кнопка на панели задач. При вызове метода сворачивания у главного окна отправляется сообщение TAplication, и он помимо сворачивания главного окна посылает hide дочерним SDI окнам. Те либо падают в левый нижний угол, либо в панель задач (как вы сделали). Нужно переопределить свойство TAplication и переписать обработчики главной формы, чтобы hide не посылалось дочерним.

[Altera]

Работает, но как-то криво.
Я сделал только

procedure Tmain_form.WMSysCommand(var m: TMessage);
begin
   if not m.WParam = SC_MINIMIZE then
      m.Result := DefWindowProc(Handle, m.Msg, m.wParam, m.lParam);
end;

и ещё showWindow(application.handle, SW_HIDE) добавил. Работает.

[BaronTreep]

Отлично. Работает кстати и с разворачиванием/максимизацией - в смысле отдельно обрабатывается.