Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c