Процедура выбора объекта движения по второму пути
На форме устанавливается компонент ComboBox2.
Изображение слева получает свойство «видимое» если CheckBox1 выключен и соответственно изображение «видимое» справа если CheckBox1 включен.
«Очищается» предыдущее содержимое компонентов для ввода значений t,v,s для второго пути.
Происходит присвоение переменной s2 имени файла соответственно выбранному названию объекта и направлению движения с последующей загрузкой рисунка.
Procedure TForm1.ComboBox2Change(Sender: TObject);
begin
j:=0; Edit4.Text:='';Edit5.Text:='';Edit6.Text:='';
If CheckBox1.Checked=False then begin
Image3.Visible:=False; Image2.Left:=1;Image2.Visible:=True;
If ComboBox2.Text='Автомобиль' then s2:='1.jpg';
If ComboBox2.Text='Грузовик' then s2:='2.jpg';
If ComboBox2.Text='Трактор' then s2:='3.jpg';
If ComboBox2.Text='Мотоцикл' then s2:='4.jpg';
If ComboBox2.Text='Турист' then s2:='5.jpg';
If ComboBox2.Text='Яхта' then s2:='6.jpg';
If ComboBox2.Text='Корабль' then s2:='7.jpg';
If ComboBox2.Text='Самолет' then s2:='8.jpg';
If ComboBox2.Text='Вертолет' then s2:='9.jpg';
If ComboBox2.Text='Воздушный шар' then s2:='10.jpg';
If ComboBox2.Text='Робот' then s2:='11.jpg';
If ComboBox2.Text='Космический корабль' then s2:='12.jpg';
If ComboBox2.Text='Пусто' then Image2.Visible:=False
else Image2.Picture.LoadFromFile('dris/'+s2);
end;
If CheckBox1.Checked=True then begin
Image3.Visible:=True; Image3.Left:=534;
Image2.Visible:=False;
If ComboBox2.Text='Автомобиль' then s2:='101.jpg';
If ComboBox2.Text='Грузовик' then s2:='102.jpg';
If ComboBox2.Text='Трактор' then s2:='103.jpg';
If ComboBox2.Text='Мотоцикл' then s2:='104.jpg';
If ComboBox2.Text='Турист' then s2:='105.jpg';
If ComboBox2.Text='Яхта' then s2:='106.jpg';
If ComboBox2.Text='Корабль' then s2:='107.jpg';
If ComboBox2.Text='Самолет' then s2:='108.jpg';
If ComboBox2.Text='Вертолет' then s2:='109.jpg';
If ComboBox2.Text='Воздушный шар' then s2:='110.jpg';
If ComboBox2.Text='Робот' then s2:='111.jpg';
If ComboBox2.Text='Космический корабль' then s2:='112.jpg';
Image3.Picture.LoadFromFile('dris/'+s2);
end;
end;
Перейти к стр.8 Процедура нажатия кнопки «Старт»