Текущий архив: 2007.06.17;
Скачать: 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 вся ветка
Текущий архив: 2007.06.17;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.014 c
