Mega Code Archive

 

Categories / Delphi / Forms

 

Show Window Contents while dragging

Title: show Window Contents while dragging? procedure ShowContents(Value: Boolean); begin SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Ord(Value), nil, 0); end; // To Show window contents while dragging: procedure TForm1.Button1Click(Sender: TObject); begin ShowContents(True); end; // To disable this option call the function: procedure TForm1.Button1Click(Sender: TObject); begin ShowContents(False); end;