АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Заставка программы

Читайте также:
  1. Алекс сидел за ограждением позади сцены, где фанатов не было, и давал интервью для какой-то программы.
  2. Инициирование программы.
  3. Место дисциплины в структуре образовательной программы.
  4. Методика формирования цели программы.
  5. Многофайловые программы. Межфайловое взаимодействие классов.
  6. Многофайловые программы. Межфайловое взаимодействие переменных.
  7. Муниципальные целевые программы.
  8. Новые культурные и образовательные программы.
  9. Область применения программы.
  10. Обоснование выбора годовой программы.
  11. Общая направленность программы.

 

Открывается при запуске программы.

Код формы:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if x=1 then
begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+10;
if Form1.ProgressBar1.Position=100 then
begin
Form1.ProgressBar1.Position:=0;
x:=2;
end; end;
if x=2 then
begin
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+30;
if Form1.ProgressBar1.Position=90 then
begin
Form1.ProgressBar1.Position:=0;
x:=3;
end;end;

if x=3 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+2;

if Form1.ProgressBar1.Position=90 then

begin

Form1.ProgressBar1.Position:=0;

x:=4;

end;end;

if x=4 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;

if Form1.ProgressBar1.Position=90 then

begin

Form1.ProgressBar1.Position:=0;

x:=5;

end;end;

if x=5 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+5;

if Form1.ProgressBar1.Position=100 then

timer1.Enabled:=false;

Form2.show;

Form1.hide;

end;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

x:=1;

timer1.Interval:=10;

timer1.Enabled:=true;

end; end.

 

 


1 | 2 | 3 | 4 | 5 | 6 | 7 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)