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

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

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

Альтернативный ответ

Для решения этой задачи можно использовать оконные компоненты, например, TStaticText, однако его полная прозрачность может быть непростой для реализации. Альтернативой является использование слоистых окон.

Подтвержденный ответ

Решение с использованием слоистых окон

1. Создайте новый проект VCL и добавьте в него несколько оконных компонентов.
2. Создайте новую форму splash, установите BorderStyle в bsNone и настройте шрифт, размер и цвет текста по вашему усмотрению.
3. Добавьте публичный метод UpdateSplash, который будет обновлять текст на форме:

procedure Tsplash.UpdateSplash(const Str: string);
var
  R: TRect;
  P: TPoint;
  S: TPoint;
  bm: TBitmap;
  bf: TBlendFunction;
  EXSTYLE: DWORD;
  x, y: integer;
  pixel: PRGBQuad;
  TextRed,
  TextGreen,
  TextBlue: byte;
begin
  EXSTYLE := GetWindowLong(Handle, GWL_EXSTYLE);
  SetWindowLong(Handle, GWL_EXSTYLE, EXSTYLE or WS_EX_LAYERED);

  R := ClientRect;

  bm := TBitmap.Create;
  try
    bm.PixelFormat := pf32bit;
    bm.SetSize(ClientWidth, ClientHeight);

    bm.Canvas.Brush.Color := clBlack;
    bm.Canvas.FillRect(ClientRect);

    bm.Canvas.Font.Assign(Self.Font);
    bm.Canvas.Font.Color := clWhite;
    DrawText(bm.Canvas.Handle, PChar(Str), Length(Str), R,
      DT_SINGLELINE or DT_VCENTER or DT_CENTER or DT_WORD_ELLIPSIS);

    // ... остальной код обработки цвета и обновления слоистого окна
  finally
    bm.Free;
  end;
end;

1. Добавьте в главный форму приватные методы для создания и обновления splash формы:

procedure TForm1.CreateSplash;
begin
  splash.Visible := true;
  UpdateSplash;
end;

procedure TForm1.UpdateSplash;
begin
  if not (Assigned(splash) and splash.Visible) then Exit;
  // ... код обновления положения и текста на форме splash
end;

procedure TForm1.WMMove(var Message: TWMMove);
begin
  UpdateSplash;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  UpdateSplash;
end;

1. Вызовите метод UpdateSplash при каждом перемещении или изменении размера формы.

2. Для демонстрации можете добавить обработчик клика по форме, который будет скрывать или показывать splash:

procedure TForm1.FormClick(Sender: TObject);
begin
  if splash.Visible then
    splash.Hide
  else
    CreateSplash;
end;

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

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

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

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

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

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

:: Главная :: TLabel ::