Отключение перерисовки окна при перемещении в 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;
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 4,82 из 5)
Загрузка...
Добавить комментарий