splash.pas

来自「专家抽取系统1.0 是用Delphi6.0 开发的一款用于招投标,评审过程中从专」· PAS 代码 · 共 41 行

unit Splash;

interface

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

type
  TfrmSplash = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSplash: TfrmSplash;

implementation

{$R *.dfm}

procedure TfrmSplash.Timer1Timer(Sender: TObject);
begin
  //定时时刻到后的事件处理程序
  frmSplash.ModalResult := mrOK;
end;

procedure TfrmSplash.Image1Click(Sender: TObject);
begin
  //单击splash窗体上图像的事件处理程序
  frmSplash.ModalResult := mrOK;
end;

end.