Программирование в Delphi. Трюки и эффекты. Александр Чиртик

or WS_CAPTION;

      SetWindowLong(Handle, GWL_STYLE, style);

      style:= GetWindowLong(Handle, GWL_EXSTYLE);

      style:= style or WS_EX_TOOLWINDOW;

      SetWindowLong(Handle, GWL_EXSTYLE, style);

      //Перерисуем в новом состоянии

      flags:= SWP_NOMOVE or SWP_NOSIZE or SWP_DRAWFRAME or SWP_NOZORDER;

      SetWindowPos(Handle, 0, 0, 0, 0, 0, flags);

      end;

      Как можно увидеть, дополнительные флаги задаются в два этапа. Сначала считывается старое значение стиля окна. Потом с помощью двоичной операции ИЛИ стиль (задается целочисленным значением) дополняется новыми флагами. Это делается для того, чтобы не пропали ранее установленные значения стиля окна.

      Вообще, процедура MakeMovable изменяет два стиля окна: обычный и расширенный. Расширенный стиль окна изменяется лишь для того, чтобы строка заголовка получившегося окна занимала меньше места (получаем так называемое окно панели инструментов). Полный перечень как обычных, так и расширенных стилей можно просмотреть в приложении 2.

      Логично также реализовать процедуру, обратную MakeMovable, запрещающую перемещение окон элементов управления (листинг 1.23).

Листинг 1.23. Запрещение перемещения и изменения размера

      procedure MakeUnmovable(Handle: HWND);

      var

      style: LongInt;

      flags: UINT;

      begin

      //Запрещаем перемещение элемента управления

      style:= GetWindowLong(Handle, GWL_STYLE);

      style:= style and not WS_OVERLAPPED and not WS_THICKFRAME

      and not WS_CAPTION;

      SetWindowLong(Handle, GWL_STYLE, style);

      style:= GetWindowLong(Handle, GWL_EXSTYLE);

      style:= style and not WS_EX_TOOLWINDOW;

      SetWindowLong(Handle, GWL_EXSTYLE, style);

      //Перерисуем в новом состоянии

      flags:= SWP_NOMOVE or SWP_NOSIZE or SWP_DRAWFRAME or SWP_NOZORDER;

      SetWindowPos(Handle, 0, 0, 0, 0, 0, flags);

      end;

      Осталось только реализовать вызовы процедур MakeMovable и MakeUnmovable в нужном месте программы. В рассматриваемом примере вызовы заключены внутри обработчика изменения состояния флажка на форме (листинг 1.24).

Листинг 1.24. Управление перемещаемостью элементов управления

      procedure TfrmMovingControls.chkSetMovableClick(Sender: TObject);

      begin

      if chkSetMovable.Checked then

      begin

      //Разрешаем перемещение элементов управления

      MakeMovable(Memo1.Handle);

      MakeMovable(ListBox1.Handle);

      MakeMovable(Button1.Handle);

      end

      else

      begin

      //Запрещаем перемещение элементов управления

      MakeUnmovable(Memo1.Handle);

      MakeUnmovable(ListBox1.Handle);

      MakeUnmovable(Button1.Handle);

      end;

      end;

      Масштабирование окон

      Возможность масштабирования окон (форм) является интересным приемом, который может быть заложен в дизайн приложения. При этом имеется в виду масштабирование в буквальном смысле этого слова: как пропорциональное изменение размера элементов управления формы, так и изменение размера шрифта.

      Использовать масштабирование при работе с Delphi крайне просто, ведь в класс TWinControl, от которого наследуются классы форм, встроены методы масштабирования. Вот некоторые из них:

      • ScaleControls – пропорциональное изменение размера элементов управления на форме;

      • ChangeScale – пропорциональное изменение размера элементов управления с изменением шрифта, который используется для отображения текста в них.

      Оба приведенных метода принимают два целочисленных параметра: числитель и знаменатель нового масштаба формы. Пример задания параметров для методов масштабирования приведен в листинге 1.25.

Листинг