Основы визуального программирования. Лабораторная работа № 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);

2. Создать всплывающее меню – компонент PopupMenu, содержащее пункты: Save, About, Exit;

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.