Помогите с ProcessMessagees!

← →
ton2 (2002-10-30 18:29) [0]

Проблема вот в чем. Посылаю содержимое формы на печать. Вот отрывок кода:
for I := Beg to End do
begin
pageControl1.ActivePage:=(PageControl1.Pages[i]);
Application.ProcessMessages;
Form1.Print;
end;
то время пока форма посылается на печать (а длится это до минуты) форма остается мертвой не реагируя ни на что несмотря на ProcessMessages. Как заставить форму проснутся?

← →
Darts (2002-10-30 18:35) [1]

End - reserved word. Код вообще работать не будет.

← →
ton2 (2002-10-30 18:45) [2]

Darts: это примерный отрывок конечно же переменную End объявить delphi не даст. если можно - по существу вопроса. заранее благодарен.

Вообще-то Application.ProcessMessages; ставиться в начале цикла и в конце, т.е:

for i=1 to 5 do
begin
Application.ProcessMessages;
//Твой код
..............
Application.ProcessMessages;
end;
У меня это проекрасно работает, попробуй, может поможет!

Помогите с ProcessMessagees! Найти похожие ветки