unit7.pas

这是一个平时无事是编写的一个航空售票管理小系统,与大家分享, 有什么问题大家在这里留言,,大家一起讨论

unit Unit7;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    OKButton: TButton;
    Timer1: TTimer;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Image1: TImage;
    panel1: TPanel;
    Label7: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.Timer1Timer(Sender: TObject);
const
  //TextRight = 569;
 // textbottom=300;
  Colors: array[0..9] of TColor = (clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clRed, clYellow, clBlue, clAqua);
begin
 //   Randomize;
    Label1.Font.Color := Colors[Random(10)];
    Label2.Font.Color := Colors[Random(10)];
    Label3.Font.Color := Colors[Random(10)];
    Label4.Font.Color := Colors[Random(10)];
    Label5.Font.Color := Colors[Random(10)];
    Label6.Font.Color := Colors[Random(10)];
 // with Label1 do
 // begin
//if label6.top>=label6.height then
//begin
//  label1.top:=label1.top-1;
//  label2.top:=label2.top-1;
//  label3.top:=label3.top-1;
//  label4.top:=label4.top-1;
//  label5.top:=label5.top-1;
//  label6.top:=label6.top-1;
//end
//  else
//begin
//  label1.top:=panel1.height;
//  label2.top:=panel1.height+50;
//  label3.top:=panel1.height+100;
//  label4.top:=panel1.height+150;
//  label5.top:=panel1.height+200;
//  label6.top:=panel1.height+250;

end;
    //Left := Left - 8;
    //if Left + Width < 5 then Left := TextRight;
//  end;



procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
AboutBox.Close;
end;

procedure TAboutBox.FormCreate(Sender: TObject);
begin
AboutBox.Brush.Style:=bsclear;
AboutBox.BorderStyle:=bsnone;

end;

end.