unit10.pas

来自「这是一个平时无事是编写的一个航空售票管理小系统,与大家分享, 有什么问题大家在」· PAS 代码 · 共 50 行

unit Unit10;

interface

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

type
  TQiDong = class(TForm)
    Image: TImage;
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QiDong: TQiDong;

implementation

uses Unit1;

{$R *.dfm}

procedure TQiDong.FormClose(Sender: TObject; var Action: TCloseAction);

//i:integer;
begin
 //for i:=255 downto 100 do
 begin
 //QiDong.AlphaBlendValue:=i;
 end;
end;

procedure TQiDong.FormActivate(Sender: TObject);

  var
v:integer;
begin
  for v:=1 to 1 do
 begin
    label1.Font.Color:=clblue;
    Application.ProcessMessages;
    sleep(500);
    label1.Font.Color:=clwhite;
    Application.ProcessMessages;
    sleep(500);
    label1.Font.Color:=clred;
    Application.ProcessMessages;
    sleep(500);
    label1.Font.Color:=cllime;
    Application.ProcessMessages;
    sleep(500);
  end;
end;

end.