Image1.onprogress

← →
denis24 (2004-11-17 11:59) [0]

Почему когда я в сабже пишу
if stage=psStarting then
begin
frmProgress:=TfrmProgress.Create(self);
frmProgress.ShowModal;
end
else if stage=psRunning then
frmProgress.ProgressBar1.Position:=PercentDone;
else if stage=psEnding then
frmNew_priyom.Free;

Приложение виснет?

← →
Gloomer © (2004-11-17 12:40) [1]

попробуй вставить Application.ProcessMessages после
frmProgress.ProgressBar1.Position:=PercentDone;

← →
Amoeba © (2004-11-17 12:55) [2]

Если показывается модальная форма, то пока она не будет закрыта, выполнение приложения будет приостановлено. А вообще из приведенного кода мало что понятно.
В каком все-таки месте "виснет"?

← →
Rem © (2004-11-17 13:20) [3]

Виснет на строке frmProgress.ShowModal; по причине, указанной в [2]. Используйте frmProgress.Show;.

← →
denis24 (2004-11-17 13:29) [4]

Спасибо помогло!
Еще вопрос.Как у формі frmprogress убрать заголовок вообще?

BorderStyle := bsNone

Image1.onprogress Найти похожие ветки