Как в MDI спрятать панельку, отображающуюся при сворачивании дочернего-окна?

@fedorov2012 · Регистрация: 05.01.2013

Author24 — интернет-сервис помощи студентам

Скажите, пожалуйста, как в MDI приложении спрятать панельку, отображающаяся при сворачивании child-окна (см. вложение)? Дело в том, что при сворачивания дочернего окна вместо стандартной панельки у меня будут формироваться вкладки на отдельной панели типа как в Windows'e.

@volvo · 05.01.2013, 15:44

Вот так

@fedorov2012 · 05.01.2013, 19:47 **[ТС]**

Спасибо, сейчас буду смотреть

Добавлено через 1 час 33 минуты

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

Вот так

Вообщем посмотрел и провел эксперименты. Работает криво.
Для скрытия дочернего окна MDI-приложения, при этом чтобы не создавалась панелька (см. первоначальный вопрос этого топика) использую такой код:

Delphi

procedure TMDIChildForm.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_MINIMIZE) then
    ShowWindow(Self.Handle, SW_HIDE)
  else
    inherited;
  end;
end

или такой (разницы нет):

Delphi

procedure TMDIChildForm.WMSize(var Msg: TWMSIZE);
begin
  if (Msg.SizeType = SIZE_MINIMIZED) then
  begin
     ShowWindow(Self.Handle, SW_HIDE);
     Msg.Result := 0; { не понятно зачем нужно обнулять результат, ну да ладно }
  end
  else
     inherited;
end;

Кривизна проявляется в следующем: если открыть два дочерних окна (окно 1 и окно 2), затем окно 1 максимизировать (разворачивается на всю MDIForm), и после чего его свернуть, в результате
это окно 1 спрячется с экрана, и при этом активизируется окно 2, которое было до этого не активно - все вроде бы хорошо, НО если попытаться свернуть окно 2, то вместо скрытие оно разворачивается на всю MDI-форму (максимизируется), если после этого окно 2 вновь попытаться свернуть, то оно свернется но почему-то вдруг появляется окно 1. Какой-то бред вообщем наступает. Почему так получается?

@volvo · 06.01.2013, 13:59

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

{ не понятно зачем нужно обнулять результат, ну да ладно }

Затем, что в MSDN написано:

If an application processes this message, it should return zero.

Убери ветку Else, и сделай Inherited безусловно:

Delphi

procedure TMDIChildForm.WMSize(var Msg: TWMSIZE);
begin
  if (Msg.SizeType = SIZE_MINIMIZED) then
     ShowWindow(Self.Handle, SW_HIDE);
  inherited; // Теперь обнулять результат не надо, это сделает обработчик VCL
end;

, тогда не должно быть описанного тобой поведения.

@fedorov2012 · 06.01.2013, 20:28 **[ТС]**

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

Затем, что в MSDN написано:

Убери ветку Else, и сделай Inherited безусловно

Да, я так попробовал - работает нормально (тоже самое и для WMSysCommand если его inherited убрать из else), НО возникает неприятное мельтешение, а именно если окно развернуто и мы его сворачиваем, то прежде чем оно исчезнет сначала появляется стандартная панелька при сворачивании (см. рис в начале топика), а уже потом вместе с дочерним окном прячется. Что делать?

@fedorov2012 · 09.01.2013, 23:04 **[ТС]**

Выявлена ещё одна проблема - ShowWindow(Self.Hande, SW_HIDE) скрывает только если Self.Active = True, в случае Self.Active = False оно не работает. Как выяснил:
Открывает в MDI-приложении окно1 максимизируем его, затем открываем окно 2 (оно автоматически максимизируется), затем сворачиваем окно2, а затем окно1, затем максимизируем окно 1 (через ShowWindow(Self.Hande, SW_SHOWMAXIMIZED), а теперь самое интересно когда мы начнем максимизировать окно2 (также через ShowWindow), то окно1 минимизируется почему-то (видать так работает MDI) и вот когда в WMSize этого окна приходит сообщение SW_MINIMIZED Self.Active=False и ShowWindow(Self.Hande, SW_HIDE) просто тупо не прячет окно и у нас в результате возникнет панельки (та что приведена в рисунке в начале топика).
Как заставить ShowWindow(Self.Hande, SW_HIDE) работать при Self.Active = False?

@fedorov2012 0 / 0 / 0 Регистрация: 05.01.2013 Сообщений: 47
		1
	Как в MDI спрятать панельку, отображающуюся при сворачивании дочернего-окна? 05.01.2013, 15:30. Показов 1895. Ответов 5 Метки нет (Все метки) Скажите, пожалуйста, как в MDI приложении спрятать панельку, отображающаяся при сворачивании child-окна (см. вложение)? Дело в том, что при сворачивания дочернего окна вместо стандартной панельки у меня будут формироваться вкладки на отдельной панели типа как в Windows'e. Миниатюры 0

@volvo Супер-модератор 32992 / 21298 / 8180 Регистрация: 22.10.2011 Сообщений: 36,593 Записей в блоге: 8
	05.01.2013, 15:44	2
	Вот так 1

@fedorov2012 0 / 0 / 0 Регистрация: 05.01.2013 Сообщений: 47
	06.01.2013, 20:28 [ТС]	5
	Сообщение от UI Затем, что в MSDN написано: Убери ветку Else, и сделай Inherited безусловно Да, я так попробовал - работает нормально (тоже самое и для WMSysCommand если его inherited убрать из else), НО возникает неприятное мельтешение, а именно если окно развернуто и мы его сворачиваем, то прежде чем оно исчезнет сначала появляется стандартная панелька при сворачивании (см. рис в начале топика), а уже потом вместе с дочерним окном прячется. Что делать? 0

@fedorov2012 0 / 0 / 0 Регистрация: 05.01.2013 Сообщений: 47
	09.01.2013, 23:04 [ТС]	6
	Выявлена ещё одна проблема - ShowWindow(Self.Hande, SW_HIDE) скрывает только если Self.Active = True, в случае Self.Active = False оно не работает. Как выяснил: Открывает в MDI-приложении окно1 максимизируем его, затем открываем окно 2 (оно автоматически максимизируется), затем сворачиваем окно2, а затем окно1, затем максимизируем окно 1 (через ShowWindow(Self.Hande, SW_SHOWMAXIMIZED), а теперь самое интересно когда мы начнем максимизировать окно2 (также через ShowWindow), то окно1 минимизируется почему-то (видать так работает MDI) и вот когда в WMSize этого окна приходит сообщение SW_MINIMIZED Self.Active=False и ShowWindow(Self.Hande, SW_HIDE) просто тупо не прячет окно и у нас в результате возникнет панельки (та что приведена в рисунке в начале топика). Как заставить ShowWindow(Self.Hande, SW_HIDE) работать при Self.Active = False? 0