Buscar

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.

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 16/07/09
Por: Gynrock
Visualizada: 3985 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009