Упражнение Картинная галерея-2

В этом задании название карти­ны будет выбираться из списка, и при щелчке на кнопке «Открыть» будет отображаться картинка соот­ветствующая названию.

Создайте проект. В Строке заго­ловка формы введите: «Выставка картин» (свойство Caption). Фор­ме дайте имя FormPictures3 (свой­ство Name). Вид формы представ­лен на рис. Сохраните модуль и проект под именами соот­ветственно UnitPictures3 и

ProjectPictures3 в папке «Выставка картин». Поместите на форму кнопку TBitBtn и назовите ее: «Открыть» (свойство Caption).

Рис. Окно формы «Выставка картин»

Поместите на форму три компонента TImage со страницы Additional (дополнительные). В свойстве Visible (видимость) для них выберите: False (ложь). Поместите на форму компонент TComboBox (редактируемый список) со страницы Standard (стандартные). В свойстве Items (элементы) для объекта ComboBoxl введите три строки с названиями ва­ших картин, например:

Дельфин

Тигр

Бегемот

Запишите в теле процедуры для кнопки «Открыть»:

if ComboBoxl.Text='Дельфин' then

Imagel.Visible:=True

else

if ComboBoxl.Text='Тигр' then

Image2.Visible:=True

else

if ComboBoxl. Text=' Бегемот' then

Image3.Visible:=True;

Сохраните изменения и запустите программу. Убедитесь в правильности ее работы.

13