Прозрачное окно

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
  protected
    procedure RebuildWindowRgn;
    procedure Resize; override;
  public
    constructor Create(AOwner:TComponent);override;
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

constructor TForm1.Create(AOwner:TComponent);
begin
  inherited;
  HorzScrollbar.Visible := false;
  VertScrollbar.Visible := false;
  RebuildWindowRgn;
end;

procedure TForm1.Resize;
begin
  inherited;
  RebuildWindowRgn;
end;

procedure TForm1.RebuildWindowRgn;
var
  FullRgn, Rgn: THandle;
  ClientX, ClientY, i: integer;
begin
  ClientX:=(Width-ClientWidth) div 2;
  ClientY:=Height-ClientHeight-ClientX;

  FullRgn:=CreateRectRgn(0,0,Width,Height);
  Rgn:=CreateRectRgn(ClientX,ClientY,ClientX+ClientWidth,
  ClientY+ClientHeight);

  CombineRgn(FullRgn,FullRgn,Rgn,RGN_DIFF);

  for i:=0 to ControlCount-1 do
    with Controls[i] do
    begin
      Rgn:=CreateRectRgn(ClientX+Left,ClientY+Top,
      ClientX+Left+Width,ClientY+Top+Height);
      CombineRgn(FullRgn,FullRgn,Rgn,RGN_OR);
    end;

  SetWindowRgn(Handle,FullRgn,true);
end;

end.

Программный код на языке Delphi, создает прозрачное окно с помощью манипуляции регионами (RGN).

Основная цель этого кода - создать форму (окно) с прозрачным фоном и закругленными углами. Форма содержит поле ввода, метку и кнопку.

Разбивка кода:

1. В секции интерфейса мы объявляем класс TForm, который наследуется от стандартного класса TForm. Этот пользовательский форм будет иметь три компонента: Edit1, Label1 и Button1.
2. Мы переопределяем метод Resize для реконструкции региона окна при изменении размера формы.
3. Процедура RebuildWindowRgn создает два региона: FullRgn и Rgn. FullRgn представляет собой всю клиентскую зону формы, а Rgn - область вне клиента (рамка).
4. Мы используем функцию CombineRgn для комбинации двух регионов с помощью флага RGN_DIFF, который удаляет перекрытие между ними.
5. Затем мы проходимся по всем компонентам на форме и создаем регион для каждого из них, комбинируя его координаты левого верхнего угла, ширины и высоты с оригинальным регионом FullRgn с помощью флага RGN_OR.
6. Наконец, мы устанавливаем регион окна handle формы на полученный регион FullRgn с помощью функции SetWindowRgn.

Код достигает прозрачности, создавая пустой регион (FullRgn) и затем комбинируя его с регионами каждого компонента на форме. Область вне клиента (рамка) также включается в полный регион, что делает окно выглядеть прозрачным.

Предложение по улучшению:

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

Кроме того, может быть полезно использовать класс TBitBtn вместо класса TButton для кнопки, так как он лучше поддерживает прозрачные фоны.

В целом, этот код предоставляет хороший пример достижения прозрачности в Delphi-формах с помощью регионов.

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

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Интерфейс ::