Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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

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


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.

 

Добавить комментарий


Защитный код
Обновить