Бутаков С.В. Методические указания к практическим работам по курсу Высокоуровневые методы программирования

Подождите немного. Документ загружается.

(Рис. 8). На данный момент внешний вид простого приложения факти-

чески сформирован.

Рис.

. Вид окна сообщения (кнопки "Да" и "Нет").

Цель дальнейшей работы над программой: Придадим кнопке ОК на

форме функции кнопки выхода, а окно сообщения будет использоваться

для подтверждения выхода.

18. Измените надпись на кнопке с «ОК» на «Выход» (измените свойство

Caption, см. 8.1 выше).

19. Предполагаем, что в запросе на выход будем обращаться к пользовате-

лю по имени, введенном им в форме. То есть обращение к пользовате-

лю будет состоять из переменной части – имени, введенном в строке

ввода и постоянной части вопроса. Измените процедуру

TForm1.Button1Click следующим образом:

procedure

TForm1.Button1Click(Sender: TObject);

var

S1, S2:PChar;

Size: Byte;

begin

S2:=',

Вы действительно желаете закрыть программу?

{

записали постоянную часть строки запроса в буфер

}

Size := Edit1.GetTextLen+StrLen(S2)+1;

{

получили длину текстовой строки из поля ввода Text1

}

GetMem(S1, Size);

{

отвели место в памяти под строку

}

Edit1.GetTextBuf(S1,Size);

{

получили строку (переменную часть вопроса) в буфер

}

StrCat(S1,S2); {

объединили строки

}

Application.MessageBox(S1

, 'Запрос', MB_YESNO);

FreeMem(S1); {

освободили память

}

end

;

20. Отключите системные меню в форме. Для этого в свойстве BorderI-

cons формы Form1 измените свойство biSystemMenu в False (см. Рис.

9).

21. Отключите возможность изменения размеров окна. Для этого в свой-

стве BorderStyle формы Form1 установите значение bsSingle (см. Рис.

9).

22. Сохраните проект и запустите программу (см. п. 13 выше). Для завер-

шения работы программы используйте функцию прерывания програм-

мы (пункты Run \ Program Reset главного меню).

Раскройте списо к свойств

Установите значение

False

Установите значение

bsSingle

Рис.

. Установка свойств формы

Form1.

23. Вспомните, что метод

Application.MessageBox

может возвра-

щать различные значения, в зависимости от того, какая кнопка была

нажата (см. п.16 выше) пользователем. Изменим процедуру

Application.MessageBox

заменив последние две строки сле-

дующими:

Application.MessageBox

(S1, 'Запрос', MB_YESNO)=IDYES

then

begin

close; {

закрываем форму

}

FreeMem(S1);

{освободили память}

end

;

FreeMem(S1);

{освободили память}

24. Сохраните проект (кнопка

), запустите его (клавиша F9) и проде-

монстрируйте результат преподавателю.

25. Перейдите в окно проектировщика форм. Выберите однократным на-

жатием кнопку c надписью «Выход». В окне инспектора объектов

(Object Inspector см. Рис. 1) откройте закладку Events (События).

Обратите внимание, что заполнено поле только напротив события On-

Click – действительно Вы обработали только событие нажатия на эту

кнопку. Обработайте еще два события – OnMouseDown и On-

MouseUp.

26. Дважды нажмите на пустое поле напротив события OnMouseDown

(см. Рис. 10).

. Дважды нажмите здесь

в пустом поле

. Дважды нажмите здесь

в пустом поле

Рис.

. Добавление обработчиков событий объекта

27. В окне редактора впишите между операторами begin и end процедуры

TForm1.Button1MouseDown оператор изменения цвета поля тексто-

вого ввода: Edit1.Color:=clWhite;.

28. Дважды нажмите на пустое поле напротив события OnMouseUp (см.

Рис. 10).

29. В окне редактора впишите между операторами begin и end процедуры

TForm1.Button1MouseUp оператор изменения цвета поля текстового

ввода: Edit1.Color:= clAqua;. Результат редактирования – см. Рис. 11 .

30. Сохраните проект (кнопка

), запустите его (клавиша F9) и проде-

монстрируйте результат преподавателю.

31. Изучите основы отладки программ. Для этого откройте в редакторе

текст процедуры TForm1.Button1Click и нажмите один раз левую

кнопку мыши слева от оператора StrCat(S1,S2); (см. Рис. 12), должна

появиться красная точка. Этот оператор будет точкой останова при

выполнении программы.

Рис.

. Текст процедур

Button1MouseDown

Button1MouseUp.

. Один раз нажмите здесь

для установки точки

останова

. Нажмите

клавишу

Insert

для добавления

переменных в

список

просмотра.

. Подведите указатель

мыши для отображения

значения переменной

Рис.

. Работа с отладчиком.

32. Запустите программу и нажмите кнопку «Выход». Выполнение про-

граммы прервется на строке, где Вы поставили точку останова (break-

point). Подведите указатель мыши к символам S2 для отображения

значения переменной S2 (Рис. 12). Попробуйте подвести указатели

мыши к другим переменным (S1, Size).

33. Откройте окно просмотра значений переменных (Watch List). Для это-

го в главном меню выберите пункты Run \ Add Watch …(Рис. 12).

Продолжите пошаговое выполнение программы: нажмите F8 (Run \

Step Over). Обратите внимание на то, как изменилось значение пере-

менной S1. Продолжите выполнение программы, нажав F9. Продемон-

стрируйте результат преподавателю.

После выполнения задания к выполнению Вам необ-

ходимо знать:

1. Порядок запуска среды Borland Delphi.

2. Порядок изменения свойств формы в инспекторе объекто в.

3. Назначение свойств Caption, Color, BorderStyle.

4. Порядок редактирования событий.

5. Порядок получения данных из элементов формы.

6. Общие приемы работы с отладчиком.

Самостоят ельна я работа.

1. Создайте новый проект (File \ New … \ Application).

2. Сохраните проект под именем lab1b в Вашу папку.

3. Создайте форму с компонентами в соответствии с Вашим вариантом

(см. табл. 1). Кроме указанных в варианте на форме обязательно долж-

ны быть одна или несколько компонент TLabel.

Указанные обработчики событий должны выполнять какие – либо дейст-

вия, из перечисленных ниже:

− изменять цвет (компонент, форм, текста и т.д.);

− вызывать диагностические сообщения;

− вносить изменения в свойство Caption других компонентов и всей

формы.

4. Для формы Form1 выполните обработку события OnClose (закрытие

формы) – запросите у пользователя подтверждение на закрытие фор-

мы.

5. Сохраните проект (кнопка

), запустите его (клавиша F9) и проде-

монстрируйте результат преподавателю.

6. Составьте отчет по лабораторной работе № 1 и представьте его к защи-

те.

Таблица

Варианты заданий к лабораторной работе № 1 .

№

Компонен-

та 1

События

Компоненты 1

Компонен-

та 2

События Ком-

поненты 2

OnClick

OnMouseDown

Образец

TEdit

Задание к вы-

полнению (см.

выше)

TButton

OnMouseUp

TEdit

OnEnter TCheckBox

OnMouseMove

TEdit

OnMouseMove

TRadioButton OnEnter

TRadioGroup

OnExit TMemo

OnKeyDown

TMemo

OnExit

TRadioGroup

OnEnter

TMemo

OnKeyDown

TEdit

OnExit

TRadioGroup

OnEnter

TMemo

OnKeyPress

TScrollBar OnChange TRadioGroup OnExit

TEdit

OnExit

TListBox OnDblClick

TRadioGroup

OnExit

TEdit

OnExit

10.

TEdit

OnExit

TComboBox OnKeyPress

11.

TComboBox

OnKeyPress

TMemo

OnExit

12.

TMemo

OnEnter

OnKeyPress

13.

TListBox

OnDblClick TMemo

OnEnter

14.

TMemo

OnExit

TComboBox OnEnter

15.

TListBox

OnClick TComboBox

OnEnter

•••••••••••• •••••• • 2. •••••••••• ••••••••••

•••••••••••• ••••••••••• •••••••.

Технические характеристики занятия

Занятие предусмотрено объемом 8 часов (в компьютерном классе).

Цели занятия

Приобрести практические навыки разработки оконного программного

интерфейса. Закрепить навыки отладки и документирования программного

обеспечения.

Задачи занятия

• Изучить наборы компонентов «Additional», «Win32» и «Dialogs».

• Отработать технологию передачи данных между окнами приложения.

• Научиться работать со стандартными диалогами Windows.

Указания по выполнению работы

Многооконное приложение в среде Delphi 5 представляет собой набор

форм, взаимодействующих между собой и, как правило, с некоторым на-

бором данных (которые хранятся в оперативной или дисковой памяти).

Основная задача данной работы – изу чить технологию передачи данных

между несколькими формами.

Условным примером будет служить программа – ежедневник. Основ-

ные задачи:

− записать, удалить или отредактировать событие;

− просмотреть список событий;

Задание к выполнению

1. Запустите Delphi 5: Пуск

Программы

\Borland Del-

phi 5\Delphi 5.

2. Создайте новый проект. Сохраните его в папку, указанную преподава-

телем под именем Lab2.

3. На первой форме расположим главное меню приложения. На панели

компонент Standard выберите компоненту TMainMenu и расположи-

те ее на форме. Дважды нажмите на ней левую кнопку мыши. В меню

верхнего уровня создайте два пункта: Файл и Событие. В меню Файл

создайте подпункты Сохранить, Загрузить и Выход. В меню Собы-

тия создайте подпункты Добавит ь, Удалить и Корректировать

(см. Рис. 13).

4. Нажмете два раза на подпункт Выход созданного главного меню. В

открывшейся процедуре

TForm1.N5Click

напишите оператор close.

Запросите у пользователя подтверждение на выход из программы, для

этого обработайте событие закрытия формы (событие OnClose для

формы Form1). Нажмите на событие OnClose в инспекторе объектов и

далее клавишу F1. Изучите справку по событию OnClose и обратите

внимание, что если возвращаемая переменная Action примет значение

caNone, то форма не будет закрыта. Следовательно, если пользователь

не подтвердит закрытие формы, то в обработчике события OnClose

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

caNone. Напишите обработчик. Результат – см . Рис. 14.

Рис.

. Создание главного меню приложения.

5. Запустите программу. Проверьте работу написанного Вами обработ-

чика, попробовав закрыть форму через главное меню окна или через

меню Файл \ Выход.

Рис.

. Процедура

TForm1.FormClose.

6. Отключите возможность пользовательского изменения размера экрана.

Для этого у формы Form1 установите свойство BorderIcons \

biMaximize в false и BorderStyle в bsSingle.

7. Создайте еще одну новую форму (File \ New Form). Для первой формы

(Form1) запишите в свойство Caption – Ежедневник (Фамилия Ав-

тора), а для второй (Form2) – Просмотр Событий.

8. На панели компонент выберите дополнительные компоненты (заклад-

ка Additional). Разместите на форме Form2 компоненту TBitBtn. Ус-

тановите для нее свойство в Kind значение bkОК – это будет кнопка

закрытия формы. Разместите на форме Form2 еще одну такую же

кнопку. Установите у нее свойство в Kind значение bkCancel – это бу-

дет кнопка закрытия формы. Исправьте надпись на кнопке с «Cancel»

на «Отмена ».

9. Перейдите в конструкторе форм к форме Form1 и в главном меню на-

жмите на пункт События \ Добавить. В процедуре TForm1.N6Click

впишите оператор модального вызова второй формы:

Form2.ShowModal

; (модальный вызов означает, что в данном при-

ложении активным может быть только модально вызванное окно).

Здесь же, в тексте первого модуля (Unit1) перейдите выше в раздел

Uses и допишите там: Unit2. Это необходимо для того, чтобы из пер-

вой формы мы могли вызывать вторую.

10. Отключите возможность пользовательского изменения размера и за-

крытия окна формы Form2 (скорректируйте свойства BorderIcons и

BorderStyle у формы Form2).

11. Сохраните, запустите проект и проверьте его работу.

12. Р азместите на форме Form1 компоненту TStringGrid (набор

компонент Additional). Установите для нее свойства ColCount – 3,

RowCount – 1, FixedCols – 0, FixedRows – 0, DefaultRowHeight – 16,

Options \ goRangeSelect – false, Options \ goRowSelect. Возможный

вид формы приведен на Рис. 15.

Рис.

. Вид формы

Form1.

13. Сформируйте заголовок таблицы событий. Для этого в обработчике

событий OnCreate формы Form1 (это событие генерируется при соз-

дании формы) запишите заголовок в таблицу следующими оператора-

ми:

StringGrid1.cells[0,0]:='Дата';

StringGrid1.cells[1,0]:='Время';

StringGrid1.cells[2,0]:='Событие';

14. Сохраните, запустите проект и проверьте его работу.

15. Р азместите на форме Form2 компоненты (см. Рис. 16):

− две компоненты TLabel (надписи Время и Событие),

− TMemo,

− TMonthCalendar и TDateTimePicker (закладка Win32 панели компо-

нент).

Рис.

. Вид формы

Form2.

16. Скорректируйте процедуру

TForm1.N6Click

в модуле Unit1 сле-

дующим образом:

procedure

TForm1.N6Click(Sender: TObject);

begin

Form2.ShowModal=mrOK

then

{

если

Form2

закрыта кнопкой

OK}

begin

StringGrid1.RowCount:=StringGrid1.RowCount+1;

{

увеличить число строк в таблице

}

StringGrid1.cells[0,StringGrid1.RowCount-1]:=

DateToStr(Form2.MonthCalendar1.Date);

{

получить дату из

Form2}

StringGrid1.cells[1,StringGrid1.RowCount-1]:=

TimeToStr(Form2.DateTimePicker1.Time);