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

Posted by maloy under Delphi, Архив

Altera

Привет всем!
В общем проблема заключается в том, что когда я сворачиваю главное окно, то сворачиваются и все остальные окна моего приложения. Пробовал решить эту задачу дав каждому окну свою кнопку на панели задач, но всё равно при сворачивании одного окна сворачиваются все окна приложения…

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 не посылалось дочерним.

тема на форуме от 2009 года

Похожие статьи

• Запретить сворачивание главной формы
• Перетаскивание формы в FireMonkey
• Cвернуть всё кроме моей формы
• Свернуть форму при ее неактивности
• Запретить системное меню