ordersIcons.byMaximize - false.
3. Помістимо на форму 10 компонентів Image (вкладка Aditional) і розташуємо їх таким чином, щоб вони накладалися один на одного. Для копіювання компонентів можна скористатися буфером обміну. Для вирівнювання компонентів необхідно їх виділити і вибрати в контекстному меню Позиція - Вирівняти
4. Задамо кожному з компонентів Image заздалегідь заготовлені зображення у форматі jpg. Для цього необхідно клацнути мишкою по властивості Picture. Відкриється Редактор Картинки, в якому можна вказати шлях до необхідного зображенню.
В
5. Подібним чином помістимо на форму 10 компонентів Memo (вкладка Standard). Для кожного з компонентів помістимо у властивість Lines тестовий питання. Для всіх компонентів Memo встановимо властивість ReadOnly - True (заборонимо зміна тексту)
6. Помістимо на форму компонент RadioGroup. У властивості Captions елемента напишемо Виберіть відповідь. У властивості Items компонента створимо п'ять порожніх рядків (вони нам знадобляться для виведення варіантів відповіді).
. У розділі var модуля опишемо змінні:
kol_v, kol_pr: integer;
8. Напишемо в обробнику події OnShow для Form1 код:
procedure TForm1.FormShow (Sender: TObject);
kol_v: = kol_v +1;// лічильник кількості заданих питань
radioGroup1.ItemIndex: = -1;// прапорець відповіді не обраний
// робимо компоненти невидимими
image1.Visible: = false;
.... Visible: = false;. Visible: = false;
...
memo5.Visible: = false; kol_v of
: begin
Image1.Visible: = true;. Visible: = true; 1.Items [0]: = '20 B ';// варіанти виведених відповідей
Radiogroup1.Items [1]: = '5 B ';. Items [2]: = '1 B';. Items [3]: = '10 B ';. Items [4] : = '2 B ';;
...
: begin.Visible: = true;. Visible: = true;. Items [0]: = '20 B ';. Items [1]: = '5 B';. Items [2 ]: = '1 B ';. Items [3]: = '10 B';. Items [4]: ​​= '2 B ';;
end;// кінець структури Case
if kol_v> 10 then// якщо задані всі питання, на екран виводиться повідомлення про кількість правильних відповідей і форма закривається
begin
showmessage ('Правильних відповідей -' + IntToStr (kol_pr));
form1.Close;
end;
9. У обробнику події OnClick для RadioGroup1 напишемо код:
procedure TForm1.RadioGroup1Click (Sender: TObject); kol_v of
: if radiogroup1.ItemIndex = 0 then kol_pr: = kol_pr +1;
: if radiogroup1.ItemIndex = 3 then kol_pr: = kol_pr +1;
: if radiogroup1.ItemIndex = 4 then kol_pr: = kol_pr +1;
: if radiogroup1.ItemIndex = 1 then kol_pr: = kol_pr +1;
: if radiogroup1.ItemIndex = 0 then kol_pr: = kol_pr +1;
end;;
Тут залежно від номера питання і вибраного прапорця підраховується кількість правильних відповідей. Radiogroup1.ItemIndex = 0 - номер прапорця, що містить правильну відповідь (в даному випадку - 1-й прапорець)
10. Останній штрих програми - помістимо на форму компонент BitBtn. У властивості Caption запишемо Наступне питання. У властивості Glyph можна задати картинку на кнопці.
Для події OnClick кнопки виберемо зі списку FormShow.
Один з варіантів робочого вікна програми:
В
Приклад № 2
Розглянемо ще один приклад - тест з інформатики. На відміну від попередньої програми, текст тесту, а також номер правильної відповіді буде міститися у файлі формату rtf. Файл test.rtf з текстом буде розташовуватися в тій же папці, що і здійсненний файл, в підкаталозі text і мати наступну структуру:
В електронній таблиці знак "$" перед номером рядка в позначенні осередку вказує на:
) грошовий формат;
) початок формули;
) абсолютну адресацію;
) початок виділення блоку осередків;
) перерахунок номера рядка, почина...