### Решение Проблем с Рисованием Рамки в Delphi 10.4.2 для Windows 10

Delphi , Синтаксис , Справочник по API-функциям

Решение Проблем с Рисованием Рамки в Delphi 10.4.2 для Windows 10

В статье рассматривается проблема рисования рамки вокруг окна в приложении Delphi 10.4.2 Win32 VCL для операционной системы Windows 10. Проблема заключается в том, что текущий подход к рисованию рамки работает корректно только для элементов управления на окне, но не для всего окна в целом, например, при наведении курсора на панель заголовка. Также возникают проблемы с корректностью отображения рамки и невозможностью изменить её цвет. В статье будет предложено решение этих проблем с использованием Object Pascal и примеры кода.

Проблема №1: Рисование рамки вокруг всего окна

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

Проблема №2: Иногда рамка искажается

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

Проблема №3: Изменение цвета рамки

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

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

Изменение подхода к рисованию

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

Пример кода

unit Unit1;

interface

uses
  Winapi.Windows, System.Classes, Vcl.Controls, Vcl.Forms, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Win: HWND;
  R: TRect;
  offset: Integer;
begin
  Win := 135642; // Замените на актуальный HWND целевого окна
  GetWindowRect(Win, R);
  offset := Panel2.Margins.Bottom;
  InflateRect(R, offset, offset);
  Self.BoundsRect := R;
  Self.Left := R.Left;
  Self.Top := R.Top;
  // Настройка цвета и прозрачности панели
  Panel2.Color := clRed; // Установка цвета рамки
  Panel2.ParentBackground := False;
  Panel2.Transparent := True;
end;

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

end.

DFM код

object Form1: TForm1
  Left = 0
  Top = 0
  AlphaBlend = True
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 378
  ClientWidth = 589
  Color = clGreen
  TransparentColor = True
  TransparentColorValue = clGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDefault
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    // Объекты и свойства панели
  end
  object Panel2: TPanel
    // Настройка внутренней панели для создания эффекта рамки
    Color = clRed // Установка цвета рамки
    // Другие свойства панели
  end
end

Важно заменить значение Win на актуальный HWND целевого окна, для которого нужно рисовать рамку. Использование прозрачного окна позволяет решить проблемы с рисованием в чужом DC и позволяет легко изменять цвет рамки, просто изменяя свойство Color панели.

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

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

**Описание контекста**: В статье обсуждается проблема рисования рамки вокруг окна в Delphi 10.4.2 на Windows 10, связанная с некорректным отображением и невозможностью изменить цвет рамки, и предлагается решение с использованием создания прозрачного окна

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

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

:: Главная :: Справочник по API-функциям ::