Buscar por:

Transparencia - Formulario aparece e desaparece gradativamente

Código

{ no exemplo q segue, criei um form q aparece gradativamente e entao e

  fechado tb de forma gradativa, automaticamente, caso queira controlar a

  acao (desaparecer ao clicar em um botao fechar por exemplo), basta ativar

  o segundo timer pela acao deste botao e nao final da procedure TForm1.Timer1Timer)

}

unit PROJETO;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, GIFImage;

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    Timer2: TTimer;

    Label2: TLabel;

    Label3: TLabel;

    Image1: TImage;

    Image2: TImage;

    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

//-----------------------------------------------------------------------------//

procedure TForm1.FormCreate(Sender: TObject);

begin

  Form1.AlphaBlend         := True;

  Form1.AlphaBlendValue    := 0;

  Timer1.Enabled           := True;

  Timer2.Enabled           := False;

end;

//-----------------------------------------------------------------------------//

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  if Form1.AlphaBlendValue < 255 then begin

     Form1.AlphaBlendValue := Form1.AlphaBlendValue + 5;

  end else

     Timer2.Enabled        := True;

end;

//-----------------------------------------------------------------------------//

procedure TForm1.Timer2Timer(Sender: TObject);

begin

  Timer1.Enabled           := False;

  if Form1.AlphaBlendValue > 5 then begin

     Form1.AlphaBlendValue := Form1.AlphaBlendValue - 5;

  end else

     Close;

end;

//-----------------------------------------------------------------------------//

end.