Изменить параметры создания формы - добавить прозрачность

Delphi , Программа и Интерфейс , Формы

unit TranspaF;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    procedure CreateParams (var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreateParams (var Params: TCreateParams);
begin
  inherited CreateParams (Params);
  Params.ExStyle := Params.ExStyle or
    WS_EX_TRANSPARENT;
end;

end.

Here is the translation of the content into Russian:

Ваш код уже добавляет прозрачность в форму, используя стиль WS_EX_TRANSPARENT в процедуре CreateParams.

Обзор вашего кода:

1. Он переопределяет метод CreateParams, который вызывается при создании формы.
2. Строка inherited CreateParams(Params) вызывает реализацию родительского класса для CreateParams, которая настраивает 기본ные параметры формы.
3. Строка Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT; добавляет стиль WS_EX_TRANSPARENT к свойству ExStyle рекорда TCreateParams.

Стиль WS_EX_TRANSPARENT делает окно прозрачным, что означает, что фон окна будет отображаться с цветом, указанным в свойстве TransparentColor формы. Если вы хотите задать конкретное значение прозрачности (т.е., альфа-канал), вы можете использовать свойство TransparentColor.

Если вам нужно добавить больше опций настройки прозрачности, такие как указание альфа-канала или настройка поведения прозрачности, вам может потребоваться использование третьей-сторонней библиотеки, которая предоставляет advanced windowing функциональность. Однако ваш текущий код должен работать нормально для базовых нужд прозрачности.

Альтернативное решение, использующее другой подход:

type
  TForm1 = class(TForm)
    private
      { Private declarations }
    public
      procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  SetWindowLong(Handle, GWL_EXSTYLE,
    GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  SetLayeredWindowAttributes(Handle, 0, 128, LWA_ALPHA);
end;

В этом коде мы используем функцию SetWindowLong для установкиextended window style, включая WS_EX_LAYERED, что позволяет использовать прозрачные окна. Затем мы используем функцию SetLayeredWindowAttributes для указания цвета прозрачности и альфа-значения (в этом случае 128) для формы.

Этот подход предоставляет больше опций настройки прозрачности, но может требовать дополнительного платформо-зависимого кода или третьей-сторонней библиотеки в зависимости от ваших конкретных нужд.

В статье рассмотрено изменение параметров создания формы в Delphi, добавление прозрачности при помощи параметра ExStyle.

Комментарии и вопросы

:: Главная :: Формы ::