Обучающие программы и исследовательские работы учащихся
Помогаем учителям и учащимся в обучении, создании и грамотном оформлении исследовательской работы и проекта.

Объявление

Наш баннер

Сайт Обучонок содержит исследовательские работы и проекты учащихся, темы творческих проектов по предметам и правила их оформления, обучающие программы для детей.
Будем благодарны, если установите наш баннер!
Баннер сайта Обучонок
Код баннера:
<a href="https://obuchonok.ru/" target="_blank"> <img src="https://obuchonok.ru/banners/banob2.gif" width="88" height="31" alt="Обучонок. Исследовательские работы и проекты учащихся"></a>
Все баннеры...

На форме устанавливается компонент 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;

Объявление

Статистика