Форма в Delphi имеет свойство AlphaBlendValue, которое отвечает за прозрачность формы (необходимо учитывать, что свойство AlphaBlend должно быть установлено в TRUE). При значении этого свойства равным 255, максимальное значение, форма не прозрачна (мы работаем с такими формами). А при значении равным о (минимальное), форма будет абсолютно прозрачной. При промежуточных значениях форма будет просвечиваться и сквозь него будут видны окна расположенные ниже.

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

В данном уроке я хочу разобрать медленной появление и скрытие окна формы. У нас будет 2 формы первая главная, с одной кнопкой. Примерно такая:

Кроме того, что на форме должна быть кнопка мы должны подсоединить модуль 2 -й формы используя, меню - File -> Use Unit или нажав Alt + F11. В обработчике кнопки "Загрузить" будет такая команда:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form2.ShowModal;
end;

С главной формой мы разобрались. Теперь займемся 2 формой. У меня она получилась такой:

Можно вместо овалов, как у меня, поместить какой нибудь рисунок. Кнопка Закрыть - закрывает форму. В ее обработчике напишем команду - Close;

Форма на экране должна появляться прозрачной для этого в Инспекторе объектов выставляем такие свойства - AlphaBlend равно TRUE и AlphaBlendValue равно 0. Пишем обработчик onActivate для второй формы:

procedure TForm2.FormActivate(Sender: TObject);
var
  I : integer;
begin
 for I := 0 to  255 do
   AlphaBlendValue := I;
end;

Теперь обработчик onClose:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I : integer;
begin
 for I := 255  downto  0 do
   AlphaBlendValue := I;
end;

Запустив приложение мы будем открывать и закрывать вторую форму с анимацией прозрачности окна.

Итог: мы разобрали пример с использованием изменения прозрачности форм.