unit_frmflash.pas

影院售票系统完整源码

unit Unit_frmflash;

interface

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

type
  TFrmflash = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    msg:string;
    { Public declarations }
  end;

var
  Frmflash: TFrmflash;

implementation
uses unit_public;
{$R *.dfm}

procedure TFrmflash.Timer1Timer(Sender: TObject);
begin
  close;
end;

procedure TFrmflash.FormShow(Sender: TObject);
begin
  label1.Caption :=msg;
  Timer1.Interval:=publicinfo.showtime ;
  Timer1.Enabled :=true;
end;

end.