| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

События

Rimd ©   (2007-05-28 11:37:00) 

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

---

Rimd   (2007-05-28 12:16:00) [1]

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

---

Сергей М.   (2007-05-28 11:58:00) [2]

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;

---

Наверх