IMHO.WS - Delphi: ProgressBar в диалоге

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - Delphi: ProgressBar в диалоге (https://www.imho.ws/showthread.php?t=36455)

Delphi: ProgressBar в диалоге

Всем привет!

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

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

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

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

Цитата:

Может есть готовый компонент для 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?

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

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

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