Программирование в Delphi. Трюки и эффекты. Александр ЧиртикЧитать онлайн книгу.

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

      implementation

      var

      isInc: Boolean; //Если True, то значение AlphaBlend формы

      //увеличивается, если False, то уменьшается

      //(форма скрывается)

      procedure TForm1.cmbHideAndShowClick(Sender: TObject);

      begin

      if AlphaBlend then chkEnableAlpha.Checked:= False;

      //Включаем прозрачность (подготовка к плавному скрытию)

      AlphaBlendValue:= 255;

      AlphaBlend:= True;

      Refresh;

      //Запускаем процесс скрытия формы

      isInc:= False;

      Timer1.Enabled:= True;

      end;

      procedure TForm1.Timer1Timer(Sender: TObject);

      var val: Integer;

      begin

      if not isInc then

      begin

      //"Растворение " окна

      val:= AlphaBlendValue;

      Dec(val, 10);

      if val <= 0 then

      begin

      //Окно полностью прозрачно

      val:= 0;

      isInc:= True;

      end

      end

      else begin

      //Появление окна

      val:= AlphaBlendValue;

      Inc(val, 10);

      if val >= 255 then

      begin

      //Окно полностью непрозрачно

      val:= 255;

      Timer1.Enabled:= False; //Процесс закончен

      AlphaBlend:= False;

      end

      end;

      AlphaBlendValue:= val;

      end;