Отображение содержимого окна при перетаскивании

Тема в разделе "Delphi", создана пользователем WinHack, 27 ноя 2016.

  1. WinHack
    В данном примере показано, как можно включить/отключить отображение содержимого окна при перетаскивании его мышью. Если отображение будет отключено, то при перетаскивании окна при помощи мыши, будет отображаться только рамка окна.

    Вот пример использования этого:

    Код:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes,
      Graphics, Controls, Forms, Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        btnShow: TButton;
        btnNoShow: TButton;
        procedure btnNoShowClick(Sender: TObject);
        procedure btnShowClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.btnShowClick(Sender: TObject);
    begin
    // для отображения содержимого окна:
     SystemParametersInfo
          (SPI_SETDRAGFULLWINDOWS, 1, nil, 0) ;
    end;
    
    procedure TForm1.btnNoShowClick(Sender: TObject);
    begin
    // отображать только рамку:
     SystemParametersInfo
          (SPI_SETDRAGFULLWINDOWS, 0, nil, 0) ;
    end;
    
    end.