Предохранить форму от перемещения и изменения размеровDelphi , Программа и Интерфейс , Размеры и ПоложениеПредохранить форму от перемещения и изменения размеров
Оформил: DeeCo private procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; {...} implementation procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); begin if ((Msg.CmdType and $FFF0) = SC_MOVE) or ((Msg.CmdType and $FFF0) = SC_SIZE) then begin Msg.Result := 0; Exit; end; inherited; end; Код, который вы предоставили, - это метод для предотвращения перемещения или изменения размера формы, интерсептируя и модифицируя сообщение Вот подробное описание того, что код делает:
Цель этого кода - заблокировать форму, чтобы она не могла быть взаимодействована пользователем в определенных способах, таких как перемещение или изменение размера. Альтернативное решение могло бы быть использование свойства Также стоит отметить, что этот код специфичен для Delphi и может не быть применимым в других программных средах. В статье описывается способ предотвращения перемещения и изменения размеров формы в Delphi, используя обработку событий WM_SYSCOMMAND. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Размеры и Положение ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |