unit1.pas

一个初级的条码应用管理系统,应用于DT9

unit Unit1;

interface

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

type
  Tsplash = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  splash: Tsplash;

implementation

{$R *.dfm}

procedure Tsplash.Timer1Timer(Sender: TObject);
var
tmp:integer;

begin
   tmp:=alphablendvalue;
   if tmp < 255 then
   begin
     tmp:=tmp+1;
   end;
   if tmp >= 255 then
   begin
     tmp:=255;
     timer1.Enabled:=false;
   end;
   if(tmp <= 255) then
    alphablendvalue:=tmp;



end;

procedure Tsplash.FormShow(Sender: TObject);
begin
  alphablend:=true;
  alphablendvalue:=0;
  timer1.Enabled:=true;
end;

procedure Tsplash.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
  while(timer1.Enabled)do
  application.ProcessMessages;
  canclose:=true;
end;

end.