Mark: Integer; I: Integer;

begin

Mark := 0;

for I := 0 to 2 do

if UserAnswers[I] = ValidAnswers[I] then Mark := Mark + 1;

ShowMessage(MarkText[Mark]);

end;

А теперь выполните компиляцию и запустите программу. С точки зрения пользователя оно не будет отличаться от программы, созданной ранее с помощью компонента PageControl. Думаем, что получив такой практический опыт, вы сможете сами сделать вывод о том, какой из двух компонентов (PageControl или TabControl) и в каких случаях следует использовать.

9.6. Итоги

Нелегкая тропа создания окон диалога пройдена. Вы в этом деле стали настоящим гуру. Не верите? Да, этот так, ибо вы познали:

тайны создания монопольных и немонопольных окон диалога,

технологию работы с разного рода переключателями;

методы ввода текста и чисел со всеми нюансами, включая шаблоны;

тайны разработки многостраничных окон диалога с десятками параметров;

способ хранения параметров в INI-файлах.

Напоследок позволим себе дать два совета: не заставляйте программу болтать лишнее и не загромождайте экран сложными окнами диалога без особой необходимости. Помните, что хороший пользовательский интерфейс должен быть простым.

495

Рекомендуется:

"Техника программирования на языке Delphi и основы создания графики для программы"

50 видеоуроков, 11 часов 52 минуты экранного видео посвящены лучшему языку программированияDelphi!"

ЭТО ПЕРВЫЙ В РУнете ВИДЕО КУРС, ИСПОЛЬЗУЮЩИЙ ПРИНЦИПИАЛЬНО НОВЫЙ ПОДХОД К ОБУЧЕНИЮ! Курс состоит из более чем 50 видео уроков (с подробными комментариями), внутри которых раскрыты секреты создания множества программ. Поэтому уже с первых минут обучения, вы начинаете именно практическое освоение Delphi и следуя видео-инструкциям создаете собственные уникальные программные продукты.

Также это полностью систематизированный видео курс, общей продолжительностью,

ТОЛЬКО ВДУМАЙТЕСЬ: 11 часов и 52 минуты.

Узнать подробности

496