Обновлено: 01 декабря, 2018

Отключение перерисовки окна при перемещении в Delphi

Следующий код отключает перерисовку окна при его перемещении:

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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439