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