Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Перерисовка canvasf моей формы занимает довольно много времени. Как определить установлен ли у пользователя режим перерисовки всего окна при перемещении чтобы временно отключить перерисовку моего окна?

Перерисовка canvasf моей формы занимает довольно много времени. Как определить установлен ли у пользователя режим перерисовки всего окна при перемещении чтобы временно отключить перерисовку моего окна?

В приведенном примере определяется включен ли режим "Full Window Drag" (перерисовки всего окна при перемещении)
Пример:

     procedure TForm1.Button1Click(Sender: TObject);
     var
       b : bool;
     begin
       SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 0, @b, 0);
       if not b then
     ShowMessage('Full Window Drag is not enabled') else
     ShowMessage('Full Window Drag is enabled');
     end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru