Приветствую Вас ГостьПятница, 29.03.2024, 00:09

WORLD of DELPHI


Мир кода

Главная » Статьи » Мир кода

Прозрачность формы

В этой статье мы разберем возможность сделать форму прозрачной (или вообще невидимой)

Для этого используется два свойства формы: AlphaBlend и AlphaBlendValue

AlphaBlend  отвечает за возможность исправлять прозрачность формы (True или False)

AlphaBlendValue отвечает за степень прозрачнасти (от 0 до 255)


Если степень прозрачности поставить "0", то форма будет невидимой, если поставить "255", то форма будет обсолютно непрозрачна. 


Эти свойства можно использовать в плавном появление формы.

Для этого создадим переменную:

var
Form1: TForm1;
val : byte;

Теперь прописываем событие OnCreate формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
val:=0;
AlphaBlend := True;
AlphaBlendValue := val;
end;

Дальше добавляем на форму компонент "Timer", а его свойство "Interval" ставим значение "5"

В событие OnTime прописываем:


procedure TForm1.Timer1Timer(Sender: TObject);
begin
val:=val + 1;
if val <= 254 then
AlphaBlendValue := val
else
begin
val := 0;
Timer1.Enabled := False;
end;
end;

Запускаем программу, и у нас плавно появляется форма. 


Скачать исходник можно здесь
 

Категория: Мир кода | Добавил: Arcanis (10.08.2010)
Просмотров: 1278 | Комментарии: 1 | Теги: Прозрачная форма, Статьи | Рейтинг: 5.0/2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Главное меню
Разное
Форма входа
Категории раздела
Мир кода [4]
Примеры программ, статьи и др.
Опрос
Сайт удобный?
Всего ответов: 12
Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Найти
Облако тегов
Друзья
Чат
200