ПрогрессБар в юните

← →
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, что необъявленный идентификатор.

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

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

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

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

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

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