dl_main.pas

来自「添加BDE别名:paikedata 设置path:[存放位置]paikeda」· PAS 代码 · 共 52 行

unit dl_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, DB, DBTables, TransEff, teTimed, teRoll,
  FormCont, teForm, teBlend, teBmpMsk, teMasked, teBlock, teCircle, teDrip,
  teFuse, teWipe, teIntrlc, teWFall, teRadial;

type
  Tmainform = class(TForm)
    Timer1: TTimer;
    FormTransitions1: TFormTransitions;
    TransitionList1: TTransitionList;
    Transition1: TInterlacedTransition;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

uses yhdl, main;

{$R *.dfm}

procedure Tmainform.Timer1Timer(Sender: TObject);
begin

mainform.Hide ;
f_main.Show;
f_main.Enabled :=false;
f_dl.show ;
mainform.Timer1.Enabled :=false;
end;

procedure Tmainform.FormShow(Sender: TObject);
begin
timer1.Enabled :=true;   //如果注标志为真的话，刚直接运行；

end;

end.