unit25.pas

来自「应对服装行业的生产成本控制系统」· PAS 代码 · 共 60 行

unit Unit25;

interface

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

type
  TForm25 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  I,I1: integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form25: TForm25;

implementation
 USES unit26;
{$R *.dfm}

procedure TForm25.FormActivate(Sender: TObject);
begin
I:=0;
I1:=0;
end;

procedure TForm25.Timer1Timer(Sender: TObject);
begin
I:=I+1;
IF I=5 then
begin
timer1.Enabled:=false;
form25.Hide;
form26.ShowModal;
end;
end;

procedure TForm25.Image1Click(Sender: TObject);
begin
form25.Hide;
form26.ShowModal;
end;

procedure TForm25.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form26.Close;
end;

end.