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





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