Отображение процесса

← →
ShooRoop (2002-12-02 16:52) [0]

Уважаемые мастера, у меня такая проблема: из своей формы (Form1) вызываю процедуру, описанную в другом модуле (GlobalDefs), в которой происходит какой-то процесс. Прогресс выполнения хочу отображать прогрессбаром на Form1, тут проблем нет, в процедуре MyProc из GlobalDefs в нужном месте вставляю
Form1.ProgressBar1.Position := bla-bla... и все нормально, но у меня будет еще несколько форм (Form2 и т.д.), использующих эту же процедуру и мне необходимо будет отображать прогресс уже на них. Как правильно реализовать эту вещь? Заранее благодарен.

← →
Виктор Щербаков © (2002-12-02 17:01) [1]

1. Дык передавай в процедуру нужный ProgressBar.
2. Можно отправлять (SendMessage) в форму пользовательское сообщение. Обрабатывая его в соответствующем методе формы можно и ProgressBar подвинуть и еще что-нибудь сделать :)

← →
ShooRoop (2002-12-02 17:13) [2]

Спасибо. Действительно, все оказалось достаточно просто, сначала пытался передавать в процедуру форму, т.е MyProc(curForm: TForm), и писать что-то вроде curForm.ProgressBar1.Position := bla-bla, естественно, получал ошибку о неизвестном идентификаторе. Сейчас все работает.

Отображение процесса Найти похожие ветки