«Языки высокого уровня в технике связи». «Создание простейшего текстового редактора».

ЛАБОРАТОРНАЯ РАБОТА № 4
«Создание простейшего текстового редактора».

Цель работы: Освоить использование основных диалоговых компонентов.

Порядок выполнения работы:
1. Поместите на форму компонент ТMainMenu.
2. Пункты меню About, Exit запрограммируйте следующим образом. При выборе пункта About появляется информационное окно с данными автора. Пункт Exit позволяет выйти из приложения.
3. Запустите приложение. Проверьте работу приложения.
4. Поместите на форму компонент всплывающее меню – ТPopupMenu, которое должно появляться на работающем приложении при щелчке правой кнопкой мыши по форме. Это меню должно содержать пункты About, Save, Exit с назначенными им клавишными эквивалентами для быстрого выполнения пунктов меню.
5. Для того, чтобы форма могла использовать объект PopupMenu, определите значение свойства PopupMenu для формы.
6. Для создания обработчиков событий, поступающих от всплывающего меню, для объекта About2 определите значение события OnClick, выбрав из раскрывающегося списка значение About1Click, которое использовалось для объекта About1 главного меню. Аналогичным образом определите значение события OnClick для объекта Exit2. Таким образом, события для разных объектов будут совместно использовать один обработчик события.
7. Запустите приложение и проверьте работу всплывающего меню.
8. Поместите на форму компонент Label. Присвойте свойству Caption значение FileName.
9. Поместите на форму компонент Edit под компонентом Label. Очистите значение свойства Text объекта Edit1. В дальнейшем здесь будет имя редактируемого файла.
10. Поместите на форму объект Memo (многострочный редактор), измените его размер и выровняйте визуальные компоненты, расположенные на форме, используя в главном меню Delphi Edit® Align. Уберите у свойства Lines объекта Memo1 его значение. Установите вертикальную и горизонтальную полосы прокрутки, используя свойство ScrollBar объекта Мемо1.
11. Поместите на форму компоненты OpenDialog и SaveDialog, расположенные на закладке Dialogs палитры компонентов. Для объектов OpenDialog1 и SaveDialog1 определите свойства DefaultExt, Filter, FilterIndex, Title.
12. Для активизации диалогового компонента OpenDialog используйте его метод Execute в обработчике событий для пункта меню Open. Если пользователь закрывает диалоговое окно, щелкнув на кнопке OK, то функция Execute возвращает значение True и содержимое файла загружается в многострочный редактор
13. Для обработки события OnClick объекта Open2 всплывающего меню подключите ту же процедуру Open1Click.
14. Аналогичные действия проделайте и с пунктом Save, при этом проверку на существование файла делать не нужно, поскольку если такой файл не существует, то приложение автоматически его создаст. Содержимое редактора Мемо1 загружается в файл методом SavetoFile. При сохранении файла в диалоговом окне должно предлагаться имя, заданное в компоненте TEdit. Для того, чтобы курсор установился в окно редактора, необходимо после загрузки файла в окно редактора установить значение свойства ActiveControl равным Мемо1. Поэтому в процедуру обработки события OnActivate формы добавьте следующий оператор:
Form1.ActiveControl:=Memo1;
15. Запустите приложение и проверьте его работу.

зачет