Основы визуального программирования. Лабораторная работа № 2 Для всех вариантов

Лабораторная работа № 2

Тема: Компоненты MainMenu, PopupMenu, Memo, OpenDialog, SaveDialog.
Создание вложенного динамического меню.

Задания
Задание 1:
Создание простейшего редактора, который работает с файлом memos.txt, находящемся в текущей папке.

1. Создайте главное меню – компонент MainMenu - с пунктами:
File Help
     
New About… F1
Open… F3 
Close 
Save F2 
Save As… 
Exit Alt+X 
1.1. Создайте обработчики событий, поступающих от объектов:
Exit1 – закрытие формы.
About1 – информация об авторах в стандартном окне (MessageDlg);
1.1. Запустите Приложение.
2. Создать всплывающее меню – компонент PopupMenu, содержащее пункты: Save, About, Exit.
2.1. PopupMenu должно появляться во время работы Приложения при нажатии на правую кнопку мыши. Для того, чтобы форма могла использовать PopupMenu, определите значение свойства PopupMenu для формы.
2.2. Для обработки событий OnClick объектов About2 и Exit2 установите обработчики событий OnClick объектов About1 и Exit1.
2.3. Запустите Приложение и проверьте работу объекта PopupMenu.
3. Поместите на форму объект Label. Присвойте свойству Caption значение FileName;
4. Поместите на форму объект Edit под объектом Label. Измените значение свойства Text объекта Edit1 на memos.txt.
5. Поместите на форму объект Memo. Измените его размер и выровняйте компоненты, расположенные на форме, используя в главном меню Edit | Align. (Для выделения группы компонентов используйте ‘захват’ компонентов левой кнопкой мыши).
6. Уберите у свойства Lines объекта Memo1 его значение. Установите вертикальную и горизонтальную полосы прокрутки, используя свойство ScrollBar объекта Memo1.
7. Для создания обработчика события, заключающегося в выборе пункта Save в главном меню, в процедуру обработки события OnClick объекта Save1 главного меню запишите код: Memo1.Lines.SaveToFile(‘memos.txt’).
Для обработки события OnClick объекта Save2 всплывающего меню подключите ту же процедуру Save1Click.
8. В процедуру обработки события OnActive формы запишите следующий код:
If FileExists(‘memos.txt’) then Memo1.Lines.LoadFromFile(‘memos.txt’)
else Memo1.Lines.SaveToFile(‘memos.txt’);  
Тогда, если при запуске Приложения файл memos.txt существует в текущей папке, то он загружается в окно Memo1. В случае отсутствия файла memos.txt в текущей папке создается новый пустой файл memos.txt (в файл записывается пустое значение свойства Lines объекта Memo1);
9. Для того, чтобы сразу после запуска Приложения курсор находился в окне объекта Memo1, установите значения свойства ActiveControl формы, равным Memo1.
Задание 2:
Создание простейшего редактора, который работает с диалоговыми окнами открытия и сохранения файлов.
1. Модифицируйте ранее созданный редактор:
• Удалите с формы объекты Edit1, Label1;
• Очистите событие OnActive формы;
• Свойство PopupMenu формы сделайте пустым;
• Размер объекта Memo1 сделайте во всю клиентскую область (свойство Align );
• Добавьте на форму компоненты OpenDialog и SaveDialog;
• Определите свойства Default, Filter, FilterIndex, Title этих компонентов;
2. По событию OnClick объекта Open1 должны выполняться следующие действия:
• Открываться диалоговое окно открытия файла;
• При закрытии окна по кнопке Open:
- В Memo1 загрузить выбранный файл;
- В заголовок формы - полное имя файла;
- Memo1 сделать видимым;
- Save1, SaveAs1 – включить (т.е. сделать доступными);

3.  По событию OnClick объекта Save1 должны выполняться следующие действия:
• Сохраняться текст Memo1 в том же файле без запроса (Имя текущего файла является значением свойства Caption формы – см. обработчик события OnClick объекта Open1)
(Запустите Приложение и проверьте работу Open1 и Save1, используя файл memos.txt)

4. По событию OnClick объекта SaveAs1 должны выполняться следующие действия:
• В диалоговом окне сохранения файла должно предлагаться имя, заданное в заголовке формы;
• Текст из окна объекта Memo1 сохраняется в файле с выбранным пользователем именем;
(Запустите Приложение и проверьте работу SaveAs1)

5. По событию OnClick объекта New1 должны выполняться следующие действия:
• Очистить поле Lines объекта Memo1;
• Memo1 сделать видимым;
• SaveAs1 – включить (т.е. сделать доступным);
• Save1 – выключить (т.е. сделать недоступным);
(Запустите Приложение и проверьте работу New1)

6. По событию OnClick объекта Close1 должны выполняться следующие действия:
• Memo1 сделать невидимым;
• SaveAs1, Save1 – выключить (т.е. сделать недоступными);
• В заголовок формы – Form1;

7. Запустите Приложение и проверьте его работу.

8. Сразу после запуска Приложения Memo1 должно быть невидимым;
При выборе пункта меню New, объект Memo1 должен становиться активным.
Установите свойство WindowState формы на значение wsMaximized.

Работа выполнена в 2016 году. Оценка зачет. Замечаний по работе нет.