Сворачивание MDIChild окна

@Anross · Регистрация: 11.10.2012

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

При сворачивании дочернего MDI окна, оно уходит в нижний левый угол родительского окна. Можно ли настроить так, чтобы не показывало это(при сворачивании скрывался полностью)?

Одиночка · 11.10.2012, 18:07

Вот из интернета:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
  private
    procedure WMGetSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
 
...
 
procedure TForm2.WMGetSysCommand(var Msg: TMessage);
begin
  if (Msg.wParam = SC_MINIMIZE) then
    Close 
  else
    inherited;
end;

Проще говоря, перехватываешь сообщениие минимизации формы в котором запускаешь её закрытие. А событии OnClose пишешь:

Delphi
1
Action:=caHide; //Скрыть

На 100% не уверен, но попробуй.

@Anross · 11.10.2012, 18:19 **[ТС]**

Одиночка, к сожалению повесить на OnClose не получиться. Событие уже задействовано в закрытии дочерней формы.

Одиночка · 11.10.2012, 18:27

Можешь показать, как именно задействовано.
На крайний случай можешь в таймере проверять:

Delphi
1
If Form2.WindowState=wsMinimize Then Form2.Hide;

Или вообще, в первом коде писать Hide для скрытия.

@Anross · 11.10.2012, 18:33 **[ТС]**

Одиночка, Закрытие обрабатывается следующим образом:

Delphi
1
2
3
4
5
6
procedure Tformadv.DoClose;
begin
  inherited;
  sendmessage(application.MainForm.Handle, WM_MDIDESTROY, self.Handle, 0);
  action:=cafree;
end;

Сенд использую для обработки в главной форме, где расположены индикаторы, какие дочерние формы открыты, какие закрыты.

Одиночка · 11.10.2012, 18:44

Hide не пробовал? (Предыдущий мой пост).

@Anross · 11.10.2012, 18:49 **[ТС]**

Одиночка, так как предложил нет, пробывал так:

Delphi
1
2
3
4
5
6
var i:integer;
begin
 for i := 0 to self.MDIChildCount-1 do
  if (self.MDIChildren[i].WindowState=wsnormal) or(self.MDIChildren[i].WindowState=wsMaximized) then
   self.MDIChildren[i].Hide;
end;

Как итог мне сказали "Cannot hide an MDI Child Form"

Одиночка · 11.10.2012, 19:07

Вот совет из инета:

Delphi
1
raise EInvalidOperation.Create(SMDIChildNotVisible);

Это для скрытия. Вместо Hide.

@volvo · 11.10.2012, 19:11

Anross, перехватывай в дочерней форме WM_SIZE:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TMDIChild = class(TForm)
   // ...
private
   procedure WMSize(var Msg : TWMSIZE) ; message WM_Size;
   // ...
 
procedure TMDIChild.WMSize(var Msg : TWMSIZE);
begin
   if Msg.SizeType = Size_Minimized then
   begin
     ShowWindow(Handle, SW_HIDE); // И скрывай форму
     Msg.Result := 0;
   end
   else Inherited;
end;

, только как потом будешь восстанавливать?

@Anross · 11.10.2012, 22:36 **[ТС]**

UI, Спасибо, то что нужно. Разворачивание окна не проблема.

Суть вообще такая, есть главная форма, из которой запускаются разнообразные дочерние окна. Для удобства, решил сделать нечто вроде вкладок в браузере. Одна форма-одна вкладка. В качестве вкладок взял TabControl, для управления(сворачивание, разворачивание, закрытие) прикрутил еще PopupMenu. А чтобы не описывать решил для дочерних сделать другой базовый класс, на основе TForm, отличается от которого ток SendMessage для создания, закрытия и управления вкладками.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Anross 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 39

	Сворачивание MDIChild окна 11.10.2012, 16:30. Показов 4027. Ответов 9 Метки нет (Все метки) При сворачивании дочернего MDI окна, оно уходит в нижний левый угол родительского окна. Можно ли настроить так, чтобы не показывало это(при сворачивании скрывался полностью)? Миниатюры 0

@Anross 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 39
	11.10.2012, 18:19 [ТС]
	Одиночка, к сожалению повесить на OnClose не получиться. Событие уже задействовано в закрытии дочерней формы. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	11.10.2012, 18:44
	Hide не пробовал? (Предыдущий мой пост). 0

@Anross 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 39
	11.10.2012, 22:36 [ТС]
	UI, Спасибо, то что нужно. Разворачивание окна не проблема. Суть вообще такая, есть главная форма, из которой запускаются разнообразные дочерние окна. Для удобства, решил сделать нечто вроде вкладок в браузере. Одна форма-одна вкладка. В качестве вкладок взял TabControl, для управления(сворачивание, разворачивание, закрытие) прикрутил еще PopupMenu. А чтобы не описывать решил для дочерних сделать другой базовый класс, на основе TForm, отличается от которого ток SendMessage для создания, закрытия и управления вкладками. 0

Сворачивание MDIChild окна

Решение