Delphi: ProgressBar в диалоге

Всем привет!

Вопрос вот в чем: есть внешний дивайс. Его нужно инициализировать. А перед этим вывести маленькое окошко на экран без всяких кнопок - только надпись в шапке - типа "Инициализация дивайса SuperPuperQuantuumGenerator" и ProgressBar. И во время инициализации показывать в отдельном окошке ProgressBarом процесс выполнения этой самой инициализации.

Может есть готовый компонент для Delphi?

Подскажите, плиз! А то я все , а толку мало

[YAS]

Здесь надо объединить управление потоками и модальные окна. Компонентов такого вида я пока не встречал.

[RaZEr]

Может есть готовый компонент для Delphi?

Компонент суть которого сводится к выводу стандартной формы и рисованию на ней стандартного компонента может и есть, но не проще ли самому вписать эти несколько строк ...

не проще ли самому вписать эти несколько строк ...

Квалификация не позволяет Я физик, а не программист...

Вот, нашел компонент (пробую прилепить к сообщению), но что-то у меня не ладиться:

Объявляю его в модуле девайса

interface
var
 pd: TProgressBox;

Потом, в теле самой процедуры инициализации девайса:

pd := TProgressBox.Create(Application);
 with pd do

----задаю свойства, Caption окна, лейбы и т. д... ----

pd.Show;

--- собственно сама инициализация девайса ---

И в конце процедуры:

pd.Close;
pd.Destroy;

Беда вот в чем: не видно на ProgressBoxе кнопки "Cancel" и лейб. Может я чего напутал в строке

pd := TProgressBox.Create(Application);

В чем разница между Application, nil и self?

Если долго рассказывать, киньте ссылку почитать.


Заранее благодарен!

[Makc]

KolyaNoskov
Вот пример, если я правильно тебя понял...