Главная страница | назад





Article #16862: Disabling Full Window Drag

 Question and Answer Database

FAQ1862D.txt   Disabling Full Window Drag
Category   :Windows API
Platform    :All
Product    :All 32 bit  

Question:
The redraw time for my canvas takes too long if the user drags the
form outside the desktop window. How can I determine if the user has
the "Full Window Drag" feature enabled in Windows, so I can take steps
to temporarily disable my redraws?


Answer:
The Following example demonstrates checking if full windows drag is
enabled.

Example:

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;


7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99