Публикация материалов

Темы исследований

Это интересно!

Наш баннер

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

На форме устанавливается компонент ComboBox1. При выполнении процедуры изображение получает свойство «видимое», «очищается» предыдущее содержимое компонентов для ввода значений t,v,s.

Происходит присвоение переменной s1 имени файла соответственно выбранному названию объекта с последующей загрузкой рисунка.


Procedure TForm1.ComboBox1Change(Sender: TObject);
begin
i:=0; Image1.Visible:=True; Image1.Left:=1;
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';
If ComboBox1.Text='Автомобиль' then s1:='1.jpg';
If ComboBox1.Text='Грузовик' then s1:='2.jpg';
If ComboBox1.Text='Трактор' then s1:='3.jpg';
If ComboBox1.Text='Мотоцикл' then s1:='4.jpg';
If ComboBox1.Text='Турист' then s1:='5.jpg';
If ComboBox1.Text='Яхта' then s1:='6.jpg';
If ComboBox1.Text='Корабль' then s1:='7.jpg';
If ComboBox1.Text='Самолет' then s1:='8.jpg';
If ComboBox1.Text='Вертолет' then s1:='9.jpg';
If ComboBox1.Text='Воздушный шар' then s1:='10.jpg';
If ComboBox1.Text='Робот' then s1:='11.jpg';
If ComboBox1.Text='Космический корабль' then s1:='12.jpg';
Image1.Picture.LoadFromFile('dris/'+s1);
end;

Объявления

Партнеры и статистика