| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Image1.onprogress [D6, Win2k]

denis24 ©   (2004-11-17 11:59:00) 

Почему когда я в сабже пишу
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;

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

---

Amoeba   (2004-11-17 13:33:00) [1]

BorderStyle := bsNone

---

denis24   (2004-11-17 13:29:00) [2]

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

---

Rem   (2004-11-17 13:20:00) [3]

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

---

Amoeba   (2004-11-17 12:55:00) [4]

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

---

Gloomer   (2004-11-17 12:40:00) [5]

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

---

Наверх