Выставить позицию ProgressBar на 0

[Shouldercannon]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

const
  MY_MESS = WM_USER + 100;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure MyProgress(var msg: TMessage); message MY_MESS;
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyProgress(var msg: TMessage);
begin
  case msg.WParam of
  0: begin
    ProgressBar1.Max := msg.LParam;
    ProgressBar1.Position := 0;
  end;

  1: ProgressBar1.Position := msg.LParam;
  end;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  PostMessage(Form1.Handle, MY_MESS, 1, AWorkCount);
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  PostMessage(Form1.Handle, MY_MESS, 0, AWorkCountMax);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  URL: string;
begin
  URL := '';

  try
    URL := IdHTTP1.Get('http://77.108.194.247/0.htm');
  except
    IdHTTP1.Disconnect;
    ProgressBar1.Position := 0; // Не работает
    MessageBox(0, 'Произошла ошибка при получении данных', 'Ошибка', MB_ICONError);
    Exit;
  end;
end;

end.

ProgressBar не хочет устанавливаться в позицию 0. Что не так делаю?

[TorrentTor]

А сообщение об ошибке выдает?

[impulsgraw]

Может быть, проблема в том, что у тебя прогрессбар просто заблокирован?
попробуй в том месте, где ты меняешь позицию на 0, поставить ссылку на функцию, в которой будет описана инструкция присваивания прогрессбару значения 0.
Ну вобщем вот так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

const
  MY_MESS = WM_USER + 100;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure MyProgress(var msg: TMessage); message MY_MESS;
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure Button1Click(Sender: TObject);
    procedure changeProgressBarPosition(pos:integer; Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

...

procedure TForm1.Button1Click(Sender: TObject);
var
  URL: string;
begin
  URL := '';

  try
    URL := IdHTTP1.Get('http://77.108.194.247/0.htm');
  except
    IdHTTP1.Disconnect;
    changeProgressBarPosition(0);
    MessageBox(0, 'Произошла ошибка при получении данных', 'Ошибка', MB_ICONError);
    Exit;
  end;
end;

procedure TForm1.changeProgressBarPosition(pos:integer; Sender: TObject);
begin
ProgressBar1.Position := pos;
end;

[Shouldercannon]

Сообщение от TorrentTor

А сообщение об ошибке выдает?

Ошибку выдаёт. В этом и фишка, если ошибка, то

Progressbar1.Position := 0;

На счёт блокировки я не знаю, но сам лично не блокирую.

procedure changeProgressBarPosition(pos:integer; Sender: TObject);
...
changeProgressBarPosition(0); // - [Error] Unit1.pas(73): Not enough actual parameters
...
procedure TForm1.changeProgressBarPosition(pos:integer; Sender: TObject);
begin
ProgressBar1.Position := pos;
end;

Пробовал просто

procedure changeProgressBarPosition(pos:integer);

Не помогло.

[Человек_Борща]

Ну раз уж обьявлены сообщения, почему бы их не использовать?

PostMessage(Form1.Handle, MY_MESS, 1, 0);
PostMessage(Form1.Handle, MY_MESS, 0, 0);

[mihali4]

Сообщение от Shouldercannon

Что не так делаю?

Полностью воспроизвел ваш код у себя - все работает нормально.
Попробуйте пересоздать эту формочку вместе со всем кодом заново - часто помогает при возникновении таких вот непонятных эффектов. Копировать коды процедур при этом можно спокойно.

[impulsgraw]

Ой, извеняюсь, не верно написал.
Верно будет вот так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

const
  MY_MESS = WM_USER + 100;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure MyProgress(var msg: TMessage); message MY_MESS;
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure Button1Click(Sender: TObject);
    procedure changeProgressBarPosition(pos:integer; Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

...

procedure TForm1.Button1Click(Sender: TObject);
var
  URL: string;
begin
  URL := '';

  try
    URL := IdHTTP1.Get('http://77.108.194.247/0.htm');
  except
    IdHTTP1.Disconnect;
    changeProgressBarPosition(0, Sender); //вот тут можно подставить значения: Sender, Form1, Self
    MessageBox(0, 'Произошла ошибка при получении данных', 'Ошибка', MB_ICONError);
    Exit;
  end;
end;

procedure TForm1.changeProgressBarPosition(pos:integer; Sender: TObject);
begin
ProgressBar1.Position := pos;
end;