097715 / Исходники / Магазин бытовой техники / Sc_trial

// Модуль отображения заставки
unit Sc_trial;

interface

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

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

var
Main_sc: TMain_sc;

implementation

uses Ad_reg;


{$R *.dfm}

// Ход прогресса
procedure TMain_sc.Timer1Timer(Sender: TObject);
begin
if ProgressBar1.Position<>ProgressBar1.Max then
ProgressBar1.Position:=ProgressBar1.Position+2
else
begin
timer1.Enabled:=false;
main_sc.Visible:=false;
registr.ShowModal;
end;
end;

end.