Delphi: ProgressBar в диалоге

[KolyaNoskov]

Всем привет!

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

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

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

[YAS]

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

[RaZEr]

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

[KolyaNoskov]

не проще ли самому вписать эти несколько строк ...
Квалификация не позволяет :( Я физик, а не программист...

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

Объявляю его в модуле девайса
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
Вот пример, если я правильно тебя понял...