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

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.

Добавлено: 08 Апреля 2018 06:41:38 Добавил: Андрей Ковальчук Нравится 0

Добавить