Delphi: заметки программиста. Часть 1

Листинг 3

 
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. 

возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует