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

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

ПрогрессБар в юните [D6, WinXP]

Pavelkq ©   (2004-07-12 09:52:00) 

Здравствуйте! Написал юнит для обработки кое-чего. Иногда он работает очень долго и хотелось бы, чтобы в ходе его работы появлялось маленькое окошечко с ПрогрессБаром. Переменная, которая будет отвечать за него имеется. Вопрос в том, как заставить юнит создать это окно и убрать после завершения?

---

OSokin   (2004-07-21 21:14:00) [1]

Можно не Parent, а nil.

---

Pavelkq   (2004-07-12 13:54:00) [2]

О, да! Наконец-то! Спасибо!

---

Snip   (2004-07-12 13:49:00) [3]

Parent укажи явно...

---

Pavelkq   (2004-07-12 13:45:00) [4]

Ёлки палки. Теперь парюсь с самим прогрессбаром. Не могу его создать на ентой форме. Делаю точно, как в справке:

var
 ProgressBar: TProgressBar;
begin
 ProgressBar := TProgressBar.Create(Self);
 with ProgressBar do
 begin
   Parent := Self;
   Align := alBottom;
 end;
end;
Так мне ругается на Self, что необъявленный идентификатор.

---

Pavelkq   (2004-07-12 10:25:00) [5]

Отлично! Принцип ясен. Спасибо!

---

CHES   (2004-07-12 10:24:00) [6]

Подробнее см. справку по TForm

Можно так

procedure TForm1.Button1Click(Sender: TObject);
var
 frm:TForm;
begin
 frm:=TForm.CreateNew(Application);
 frm.Show
end;

Но что с ней даоьше делать тебе решать :)

---

Anatoly Podgoretsky   (2004-07-12 10:21:00) [7]

Как же так, попробуй запустить справку и в индекс буква за буквой нажимать

---

Pavelkq   (2004-07-12 10:16:00) [8]

Можно подробнее? Просто Create я не нашел:-( До сих про Дельфи мне сам создавал формы.

---

Anatoly Podgoretsky   (2004-07-12 09:56:00) [9]

Cоздать Create, убрать Free/Hide/Visible

---

Наверх