События для динамических объектов

[fezilk25]

Доброго времени суток!

Необходимо присвоить динамически создаваемому объекту (tidhttp) событие, для работы ProgressBar'а.
Если присваивать так:

myhttp.OnWork := idhttp1.OnWork

будет ли работать? Или AWorkCount будет для idhttp1 ?

[_Troy]

Вот пример на TEdit, сделай по аналогии.

type
  TForm1 = class(TForm)
    ...
  private
    procedure _onClick(Sender: TObject);
  end;

var
  Form1: TForm1;
  Edit: TEdit;

implementation

procedure TForm1._onClick(Sender: TObject);
begin
  ShowMessage('Нажал на Edit');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit := TEdit.Create(Form1);
  Edit.Parent := Form1;
  Edit.OnClick := _onClick;
end;

[fezilk25]

окей, спасибо.
дело в том, что progressbar каждый раз разный. нельзя ли как-нибудь так сделать:

myhttp.onwork := {ProgressBar343.Position := AWorkCount;}

?

[_Troy]

Не совсем понимаю что ты хочешь. Так?

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    ...
  private
    procedure _onClick(Sender: TObject);
  end;

var
  Form1: TForm1;
  Edit: TEdit;

implementation

procedure TForm1._onClick(Sender: TObject);
begin
  ProgressBar1.Position := ProgressBar1.Position + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit := TEdit.Create(Form1);
  Edit.Parent := Form1;
  Edit.OnClick := _onClick;
end;