Создание настраиваемого круглого компонента с прозрачным фоном в Delphi XE

Delphi , Компоненты и Классы , Компоненты

Вопрос, заданный пользователем, касается создания компонента круглой формы с прозрачным фоном в среде разработки Delphi XE. Это необходимо для того, чтобы такой компонент мог накладываться на другие элементы формы, не теряя при этом своей функциональности. Пользователь уже пробовал различные подходы, такие как установка стиля кисти в прозрачный режим (Brush.Style:=bsTransparent) или использование функции ellipse(), но без успеха.

Решение проблемы

Для создания компонента с прозрачным фоном и круглой формой можно использовать следующий подход. Создадим класс TEllipticPanel, который наследует функциональность от Vcl.ExtCtrls.TPanel и переопределит необходимые процедуры для достижения нужного результата.

type
  TEllipticPanel = class(Vcl.ExtCtrls.TPanel)
    procedure CreateWnd; override;
    procedure Paint; override;
    procedure Resize; override;
    procedure RecreateHRGN;
  end;

В реализации класса TEllipticPanel определяем процедуры, которые будут отвечать за создание региона окна в форме эллипса и перерисовку компонента.

procedure TEllipticPanel.RecreateHRGN;
var
  hr: hRgn;
begin
  inherited;
  hr := CreateEllipticRgn(0,0,Width,Height);
  SetWindowRgn(Handle, hr, True);
end;

procedure TEllipticPanel.CreateWnd;
begin
  inherited;
  RecreateHRGN;
end;

procedure TEllipticPanel.Paint;
begin
  inherited;
  Canvas.Brush.Style := bsClear;
  Canvas.Pen.Style := TPenStyle(psSolid);
  Canvas.Pen.Width := 1;
  Canvas.Pen.Color := clGray;
  Canvas.Ellipse(1,1,Width-2,Height-2);
end;

procedure TEllipticPanel.Resize;
begin
  inherited;
  RecreateHRGN;
end;

Ключевыми моментами являются функции CreateEllipticRgn и SetWindowRgn из Windows API, которые позволяют установить форму компонента в виде эллипса и сделать края прозрачными.

В примере использования класса TEllipticPanel в главной форме:

procedure TForm1.FormCreate(Sender: TObject);
begin
  panl := TEllipticPanel.Create(self);
  panl.Left := 10;
  panl.Top := 10;
  panl.Width := 100;
  panl.Height := 50;
  panl.ParentBackground := False;
  panl.ParentColor := False;
  panl.Color := clYellow;
  panl.Parent := self;
end;

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

Дополнительные сведения

Для более глубокого понимания работы с регионами окон в Windows можно обратиться к документации по регионам.

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

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

Создано по материалам из источника по ссылке.

Создание в Delphi XE настраиваемого компонента круглой формы с прозрачным фоном для использования в качестве перекрывающего слоя на других элементах интерфейса.

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

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

:: Главная :: Компоненты ::