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

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

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

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

@volvo · 05.01.2013, 15:44

Вот так

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

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

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

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

Вот так

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

Delphi
1
2
3
4
5
6
7
8
procedure TMDIChildForm.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_MINIMIZE) then
    ShowWindow(Self.Handle, SW_HIDE)
  else
    inherited;
  end;
end

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

Delphi
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
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?

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@fedorov2012 0 / 0 / 0 Регистрация: 05.01.2013 Сообщений: 47

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

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	05.01.2013, 15:44
	Вот так 1

@fedorov2012 0 / 0 / 0 Регистрация: 05.01.2013 Сообщений: 47
	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? 0