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

ПрогрессБар в юните   Найти похожие ветки 

← →
Pavelkq   (2004-07-12 09:52) [0]

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

---

← →
Anatoly Podgoretsky ©   (2004-07-12 09:56) [1]

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

---

← →
Pavelkq   (2004-07-12 10:16) [2]

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

---

← →
Anatoly Podgoretsky ©   (2004-07-12 10:21) [3]

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

---

← →
CHES ©   (2004-07-12 10:24) [4]

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

Можно так

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

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

---

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

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

---

← →
Pavelkq   (2004-07-12 13:45) [6]

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

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

---

← →
Snip ©   (2004-07-12 13:49) [7]

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

---

← →
Pavelkq   (2004-07-12 13:54) [8]

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

---

← →
OSokin   (2004-07-21 21:14) [9]

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

---

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

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



Память: 0.46 MB
Время: 0.021 c