Создание Формы с Закругленными Верхними Углами и Системной Тенью в Delphi с Использованием `SetWindowRgn`

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

Создание Формы с Закругленными Верхними Углами и Системной Тенью в Delphi

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

Описание решения

Для создания формы с закругленными верхними углами и системной тенью в Delphi, необходимо изменить свойства региона окна с помощью SetWindowRgn. Это позволит изменить стандартный прямоугольный вид окна на форму с закругленными углами. Для добавления тени используется стиль окна CS_DROPSHADOW.

Пример кода

Ниже представлен пример кода, который демонстрирует, как можно создать форму с указанными характеристиками:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    private
      procedure CreateFlatRoundRgn;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure ExcludeRectRgn(var Rgn: HRGN; LeftRect, TopRect, RightRect, BottomRect: Integer);
var
  RgnEx: HRGN;
begin
  RgnEx := CreateRectRgn(LeftRect, TopRect, RightRect, BottomRect);
  CombineRgn(Rgn, Rgn, RgnEx, RGN_OR);
  DeleteObject(RgnEx);
end;

procedure TForm1.CreateFlatRoundRgn;
const
  CORNER_SIZE = 6;
var
  Rgn: HRGN;
begin
  with BoundsRect do
  begin
    Rgn := CreateRoundRectRgn(0, 0, Right - Left + 1, Bottom - Top + 1, CORNER_SIZE, CORNER_SIZE);
    // исключаем левый нижний угол
    ExcludeRectRgn(Rgn, 0, Bottom - Top - CORNER_SIZE div 2, CORNER_SIZE div 2, Bottom - Top + 1);
    // исключаем правый нижний угол
    ExcludeRectRgn(Rgn, Right - Left - CORNER_SIZE div 2, Bottom - Top - CORNER_SIZE div 2, Right - Left, Bottom - Top);
  end;
  // если SetWindowRgn не удается, удаляем Rgn
  if SetWindowRgn(Handle, Rgn, True) = 0 then
    DeleteObject(Rgn);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := bsNone;
  CreateFlatRoundRgn;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
const
  CS_DROPSHADOW = $00020000;
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := WS_POPUP;
    WindowClass.Style := WindowClass.Style or CS_DROPSHADOW;
  end;
end;

Важные замечания

• При использовании стиля WS_POPUP для окна, изменение его размеров может быть затруднено. Существуют различные способы решения этой проблемы, включая обработку сообщений WM_NCHITTEST, использование WM_SYSCOMMAND для изменения размеров или перемещения окна, а также использование стилей WS_EX_STATICEDGE и WS_SIZEBOX.

• При изменении размеров окна необходимо повторно создавать регион окна, например, в событии OnResize.

• Для более сложных форм окна можно использовать PNG-изображение и Alpha Blending.

• В качестве альтернативы использованию SetWindowRgn для создания тени можно использовать UpdateLayeredWindow.

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

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

Необходимо создать форму в Delphi с закругленными верхними углами и системной тенью, используя функцию `SetWindowRgn`.

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

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

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