События

← →
Rimd (2007-05-28 11:37) [0]

Уважаемые мастера, подскажите пожалуйста! Есть невизуальный компонент TDownloadUrl, у него есть событие TDownloadProgressEvent. Каким образом мне создать процедуру и объявить(зацепить на это событие). Если можно, то киньте пожалуйста пример.

← →
Сергей М. © (2007-05-28 11:58) [1]

interface
..
TMyForm = class(TForm)
..
//в любой из секций - private, protected или public

procedure DoOnProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean);
..
end;
..

implementation

..
//в обработчике любого события формы
DownloadUrl.OnDownloadProgress := DoOnProgress;

..
procedure TMyForm.DoOnProgress;
begin
.. do something on progress event ..
end;

← →
Rimd (2007-05-28 12:16) [2]

огромное спасибо

События Найти похожие ветки