Содержание материала

В приводимом ниже листинге 3 (пример заимствован из справочной системы delphi) в программе создается 5 окон. В форме form5 имеется индикатор progressbar1, с помощью которого визуализируется процесс загрузки программы, точнее — создания остальных окон.

Листинг 3

Code:

begin

with tform5.create(nil) do

try

progressbar1.max := 100;

show; // Показываем форму form5 с индикатором progressbar1

update; // Прорисовываем форму form5

application.createform(tform1, form1);

progressbar1.stepby(25);

application.createform(tform2, form2);

progressbar1.stepby(25);

application.createform(tform3, form3);

progressbar1.stepby(25);

application.createform(tform4, form4);

progressbar1.stepby(25);

finally

free; // Разрушаем ненужную форму form5

end;

application.run;

end.

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить