Модуль заставки

unit Unit3;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

ComCtrls;

type

{ TForm3 }

TForm3 = class(TForm)

Image1: TImage;

ProgressBar1: TProgressBar;

Timer1: TTimer;

procedure FormCreate(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form3: TForm3;

i:integer;

implementation

uses unit2;

{$R *.lfm}

{ TForm3 }

procedure TForm3.Timer1Timer(Sender: TObject);

begin

Inc(i);

ProgressBar1.Position:=ProgressBar1.Position+1;

if i=110 then

Begin

Form3.Hide;

Form2.Show;

End;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

i:=0;

end;

end.

40