showunit.pas

来自「图书馆管理系统,非常有用,希望给你带来帮助」· PAS 代码 · 共 58 行

unit ShowUnit;

interface

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

type
  TShowForm = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShowForm: TShowForm;

implementation

{$R *.dfm}

procedure TShowForm.FormCreate(Sender: TObject);
var
  i:byte;
begin
  show;
  update;
  for i:=1 to 10 do
  begin
    AlphaBlendValue:=AlphaBlendValue+12;
    sleep(2);
    update;
  end;
  sleep(1000);
  ShowForm.Close;
end;

procedure TShowForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:byte;
begin
  for i:=0 to 15 do
  begin
    AlphaBlendValue:=AlphaBlendValue-12;
    sleep(2);
    update;
  end;
  ShowForm:=nil;
  Action:=caFree;
end;

end.