Загрузочная форма для приложения. ProgressBar и Timer.

@wrestlerandrew · Регистрация: 03.11.2011

Author24 — интернет-сервис помощи студентам

Люди добрые помогите пожалуйста. НАписал загрузочную форму для игры анаграммы. Решил добавить ProgressBar!! Написал код ....но при компелиции выдает ошибку!! Ниже код:

Delphi

 unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, ComCtrls;
 
type
  TForm2 = class(TForm)
    tmr1: TTimer;
    img1: TImage;
    pb1: TProgressBar;
    tmr2: TTimer;
    procedure tmr1Timer(Sender: TObject);
    procedure tmr2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.tmr1Timer(Sender: TObject);
begin
  Tmr1.Enabled := false;
  Form2.Close;
  Form1.Show;
end;
 
procedure TForm2.tmr2Timer(Sender: TObject);
begin
  pb1.Position:= pb1.Position+1;
  if pb1.Position [COLOR="Red"]&gt[/COLOR];=pb1.Max then
// Ошибка выделена красным цветом
  begin
    Tmr2.Enabled:=False;
    pb1.Position:=0;
  end;
end;
 
end.

	30.11.2011, 19:49