ProgressBar [D6, Win95/98, WinXP]
Archont © (2002-06-27 10:04:00)
А вопрос такой:
Как мне использоать свойство TImage.Picture.OnProgress, чтобы
видеть прогресс чтения картинки из файла?
MAxiMum (2002-06-27 11:53:00) [1]
Свойство OnProgress - это всего лишь обработчик события.
Создаешь процедуру:
procedure MyProc(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg:
string);
const sText: array[TProgressStage] of String = ("Подготовка к
загрузке...", "Загрузка...", "Завершение загрузки...");
begin
//Выводим происходящее в настоящий момент действие
StatusBar1.SimpleText := sText[Stage];
ProgressBar1.Position := PercentDone;
end;
Затем пишешь в процедуре, которая будет выполняться до
загрузки рисунка, например в обработчике формы OnCreate:
Image1.Picture.OnProgress := MyProc;
Наверх 
ЧАТ |
Орешник |
|
