dl_main.pas

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

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.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?