unit2.pas

来自「DELPHI7编程。 无鼠标焦点时自动向上滑动」· PAS 代码 · 共 42 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Timer2Timer(Sender: TObject);
begin
  form2.AlphaBlendValue:=form2.AlphaBlendValue-3; //透明减少
  if form2.AlphaBlendValue=0 then form2.Close;  //当透明度为0时form2关闭
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  timer2.Enabled:=true;         //启动timer2
  timer1.Enabled:=false;       //关闭timer1
end;

end.