Выполнение задания на работу. На рисунке 18 представлена главная форма проекта.

На рисунке 18 представлена главная форма проекта.

Рисунок 18 – Форма, созданная в среде Delphi

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

Для того чтобы кнопка, вынесенная на форму, выполняла определенные функции (функции обработчика событий), необходимо произвести на ней двойной клик мышью, либо в Инспекторе объектов переключиться на закладку События и кликнуть два раза мышью в событии OnClic (рисунок 19):

Рисунок 19 – Закладка События в Инспекторе объектов

После этого откроется Окно редактора (рисунок 20):

Рисунок 20 – Фрагмент Окна редактора

В данном случае нажатие кнопки Ок подразумевает подтверждение выбора варианта ответа и выполнение действий закрытие формы 1 и открытие формы 2 в соответствии с выбранным вариантом.

Для выполнения указанных действий необходимо в операторных скобках begin…end указать следующее:

Form1.visible:=false;

Form2.showmodal[6].

Приведенная запись кода означает, что машине задается:

- в первой строке: форме 1 присвоить ложную видимость (скрыть);

- во второй строке: форму 2 показать модально (показать только форму 2, другие формы при этом не работают).

Окно редактора форм после внесения соответствующего текста программы показано на рисунке 21.

Рисунок 21 – Фрагмент Окна редактора после присвоения

действий кнопке Ок

Предположим, вторая форма аналогична первой (рисунок 22):

Рисунок 22 – Форма 2

Следует обратить внимание, что формам могут даваться названия. Для того чтобы назвать форму определенным, именем необходимо щелкнуть левой кнопкой мыши на пустом пространстве формы, а затем в Инспекторе объектов в параметр Caption ввести название формы. После ввода названия формы также необходимо щелкнуть левой кнопкой мыши на пустом пространстве этой же формы. В данном случае вторая форма так и называется Форма 2. По умолчанию формы называются Form1, Form 2 и т. д.

Между созданными формами должна существовать связь. В системе Delphi каждой созданной форме соответствуют свой unit (блок программы с кодом).

Переключение между unit-ами можно производить в окне редактора (рисунок 23).

Рисунок 23 – Переключение между unit-ами форм

Для того, чтобы установить связь между формами необходимо в блоке программы с текстовым кодом найти слово implementation и после него указать, с какими формами (и их unit-ами) необходимо связать данную форму (unit данной формы). Для указания связи используется служебное слово uses.

Например, в соответствии с разработанным интерфейсом, форма 1 связана с формой 2, т. к. при нажатии кнопки Ок на первой форме, открывается форма 2.

Связь между формами 1 и 2 показана на рисунке 24.

Рисунок 24 – Связь между формами 1 и 2.

Предположим, при выборе на форме 2 варианта ответа До разрядки и нажатия кнопки Ок, открывается форма 3. При выборе на форме 2 варианта ответа После разрядки и нажатия кнопки Ок, открывается форма 4.

Код программы в форме 2 (unit 2) представлен на рисунке 25.

Рисунок 25 – Код программы в форме 2 (unit 2).

Код на рисунке 25 означают следующее:

- uses unit 3, unit 4 – форма 2 связана с формами 3, 4, т. к. после нажатия кнопки Ок в зависимости от варианта ответа должны открыться либо форма 3, либо форма 4;

- form2.Visible:=false – скрыть форму 2;

- if radiogroup1.ItemIndex=0 then

form3.showmodal – если в объекте radiogroup1 индекс равен 0 (в данном случае это вариант ответа До разрядки), то показать форму 3;

- else

form4.showmodal – иначе показать форму 4 (иначе означает «при выборе варианта ответа После разрядки»).

Следует отметить, что при написании текста программы необходимо правильного расставлять операторные скобки begin…end[7].

Предположим, третья и четвертая формы имеют вид, представленный на рисунках 26, 27[8].

Рисунок 26 – Форма 3

Рисунок 27 – Форма 4

Предположим, если на форме 3 выбран вариант ответа Патрон и нажата кнопка Ок, программа закрывает форму 3 и открывает форму 5 (рисунок 28). Если выбран другой вариант ответа (Гильза или Капсюль), программа выдает текстовое сообщение[9] (рисунок 29).

Рисунок 28 – Форма 5

Рисунок 29 – Текстовое сообщение

Тексты программы для форм 3, 4 представлены на рисунках 30, 31.

Рисунок 30 – Текст программы формы 3

Записи означают следующее:

- uses unit 1, unit 5 – форма 3 связана с формами 1, 5, т. к. после нажатия кнопки Ок при выборе варианта ответа Да должна открыться форма 5, а при выборе варианта ответа Нет после выхода текстового сообщения программа должна быть закрыта[10];

- begin – открытие операторных скобок;

- form3.Visible:=false – скрыть форму 3;

- if radiogroup1.ItemIndex=0 then

Form5.showmodal – если в объекте radiogroup1 индекс равен 0 (в данном случае это вариант ответа Да), то показать форму 5;

- else – иначе;

begin – еще одно открытие операторных скобок;

showmessage (‘…’) – показать сообщение (в скобках указывается текст сообщения);

form1.close – закрыть форму 1 (и всю программу после прочтения сообщения);

end – закрытие внутренних операторных скобок;

end – закрытие внешних операторных скобок.

Рисунок 31 – Текст программы формы 4

Записи означают следующее:

- uses unit 1 – форма 4 связана с формой 1, т. к. после нажатия кнопки Ок на текстовом сообщении должна закрыться форма 1, а вместе с ней и вся программа;

- begin – открытие операторных скобок;

showmessage (‘…’) – показать сообщение (в скобках указывается текст сообщения);

form1.close – закрыть форму 1 (и всю программу после прочтения сообщения);

end – закрытие операторных скобок.

Иногда при программировании требуется осуществлять связь между спроектированными формами. Для этого создается новая форма, где в определенном объекте вводится запись кода:

if (form.1.radiogroup1.ItemIndex=0) and (form.3.radiogroup2.ItemIndex=0) and (form.12.radiogroup1.ItemIndex=0) then

showmassage (‘Данный объект годен. Cf 1,0.’);

Данная запись означает следующее: если на форме 1 в объекте radiogroup1 выбран вариант ответа, соответствующий строке ItemIndex=0 и на форме 3 в объекте radiogroup2 выбран вариант ответа, соответствующий строке ItemIndex=0 и на форме 12 в объекте radiogroup1 выбран вариант ответа, соответствующий строке ItemIndex=0, то показать сообщение «Данный объект годен». При большом числе комбинаций перебора необходимо организовывать циклы.

Контрольные вопросы

1 Как в системе Delphi называется атрибут, содержащий основные действия с файлами?

2 Что в системе Delphi называется компонентами?

3 Как в системе Delphi называется блок, содержащий текст программы?

4 В виде чего хранятся созданные в системе Delphi формы и текст программы?

5 Как в системе Delphi называется окно для непосредственной разработки форм?

6 Что в системе Delphi означает запись uses unit 1, unit 5?

7 Как в системе Delphi называется атрибут для внесения надписей, заголовков и прочее в выбранные элементы формы?

8 Какой в системе Delphi следует выбрать параметр, чтобы произвести форматирование сделанных в форме надписей?

9 Что в системе Delphi означает запись Form1.visible:=false?

10 Как в системе Delphi называется атрибут для написания текста программы?

11 Какой в системе Delphi следует выбрать параметр, чтобы ввести в форму заголовок?

12 Что в системе Delphi означает запись Form2.showmodal?

13 Как в системе Delphi называется атрибут, содержащий основные элементы форм?

14 Какой в системе Delphi следует выбрать параметр, чтобы ввести в объект RadioGroup варианты ответа?

15 Что в системе Delphi означает запись if radiogroup1.ItemIndex=0 then form3.showmodal?

Работа с файлами

Не нашли, что искали? Воспользуйтесь поиском: