Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

9th
Янв

Скрыть панель child окна

Posted by micher under Delphi

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

fedorov2012

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



procedure TMDIChildForm.WMSysCommand(var Msg: TWMSysCommand);

begin

  if (Msg.CmdType = SC_MINIMIZE) then

    ShowWindow(Self.Handle, SW_HIDE)

  else

    inherited;

end

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



procedure TMDIChildForm.WMSize(var Msg: TWMSIZE);

begin

  if (Msg.SizeType = SIZE_MINIMIZED) then

  begin

    ShowWindow(Handle, SW_HIDE);

    Msg.Result := 0; { не понятно зачем нужно обнулять результат, ну да ладно }

  end

  else

    inherited;

end;

тема на форуме