Полупрозрачное окно в Win2000

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

SetWindowTransp(hndl: THandle; Perc: byte);

hndl

Hanle окна, которое надо сделать полупрозрачным.

Perc

Число от 1 до 100, указывающее уровень прозрачности.

Here is a translation of the text into Russian:

Взрыв из прошлого!

Код, который вы опубликовали, - это функция Windows API для создания окна полупрозрачным в Windows 2000. Вот разбивка того, что она делает:

SetWindowTransp

• hndl: Обратная ссылка на окно, которое нужно сделать полупрозрачным.
• Perc: Байтовое значение, представляющее уровень прозрачности, варьирующийся от 1 (полностью непрозрачный) до 100 (полностью прозрачный).

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

Чтобы использовать эту функцию, вам нужно:

1. Заявить прототип функции в вашем коде: procedure SetWindowTransp(hndl: THandle; Perc: byte);
2. Позвать функцию, передавая обратную ссылку на окно и уровень прозрачности как аргументы: SetWindowTransp(hWnd, 50); (например)

В Windows не существует простого API-вызова для установки уровня прозрачности окна. Вместо этого вам нужно использовать болееadvanced техники, такие как:

1. Создание окна с заливкой WS_EX_LAYERED.
2. Использование функции SetLayeredWindowAttributes для調гации прозрачности окна.

Вот пример того, как вы можете реализовать это:

type
  TLayeredWindow = class(TWindow)
  private
    FOpacity: byte;
  public
    procedure SetOpacity(Perc: byte);
  end;

procedure TLayeredWindow.SetOpacity(Perc: byte);
begin
  SetLayeredWindowAttributes(Handle, Perc, LWA_ALPHA or LWA_COLORKEY);
end;

Код defines a TLayeredWindow class that inherits from TWindow. The SetOpacity method uses the SetLayeredWindowAttributes function to adjust the opacity of the window. Вы вызываете это метод, создавая экземпляр класса TLayeredWindow и передавая уровень прозрачности как аргумент: MyLayeredWindow.SetOpacity(50);

В целом, ваш оригинальный код может не работать в современных версиях Windows из-за изменений API и системы окон. Однако вы можете достичь схожих результатов с помощью болееadvanced техник, таких как заливка окон и регулировка прозрачности.

В статье описывается функция SetWindowTransp для создания полупрозрачного окна в операционной системе Win2k, которая принимает.handle окна и процентную величину уровня прозрачности как параметры.

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

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

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