Лабораторная работа № 2 по дисциплине "Основы визуального программирования"

ID: 62751
Дата закачки: 29 Января 2012
Продавец: 1231233 (Напишите, если есть вопросы)
    Посмотреть другие работы этого продавца

Тип работы: Работа Лабораторная
Форматы файлов: Microsoft Word, Delphi
Сдано в учебном заведении: СибГУТИ

Описание:
Тема: Компоненты 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).
(Примечание: для размещения текста в нескольких строчках используйте #13#10.
Например: ‘Авторы’#13#10’Студенты СибГУТИ’)
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.

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

Размер файла: 313,5 Кбайт
Фаил: