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

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

← →
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, естественно, получал ошибку о неизвестном идентификаторе. Сейчас все работает.

---

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

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



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