Лабораторная работа №37 Стандартные диалоги и компоненты
учебно-методический материал
Лабораторная работа по дисциплине «Основы программирования» Стандартные диалоги и компоненты
Скачать:
Вложение | Размер |
---|---|
![]() | 49 КБ |
Предварительный просмотр:
Лабораторная работа №37
Лабораторная работа №37
Тема 3.3: Стандартные диалоги и компоненты.
Цель: Получить практические навыки создания приложений с применением стандартных диалогов и компонентов в интегрированной среде разработки Delphi.
Оборудование: IBM – совместимые компьютеры.
Место проведения: Компьютерный класс.
Техника безопасности: См. инструкцию.
Создание текстового редактора
Работа иллюстрирует использование стандартных диалоговых окон, меню, кнопок быстрого доступа, многострочного редактора Memo.
1. Откройте новый проект и разместите на форме компоненты MainMenu
(главное меню), PopupMenu ( всплывающее меню). На странице Dialogs найди
те и разместите на форме компоненты OpenDialog (диалоговое окно выбора
имени файла для открытия), SaveDialog (диалоговое окно выбора имени файла
для сохранения), FontDialog (выбор шрифта), ColorDialog (выбор цвета). Все
эти компоненты изобразятся на форме в виде значков. Добавьте компонент
Memo (редактор текста) и задайте его свойство Align (выравнивание) в alBottom .
Установите заголовок формы - Блокнот.
Memo представляет собой многострочный редактор текста. Содержимое редактора хранится в свойстве Lines. Это - свойство класса TStrings (набор строк).
2. Задайте свойства компонентов для выбора имен файлов:
Компонент OpenDialog:
Свойство Значение Комментарий
DefaultExt txt Расширение имени файла по умолчанию
Title Открытие текстового файла
Options.OfFileMustExist true Открываемый файл должен существовать
Filter Все файлы | * * При просмотре будут видны все файлы
Компонент SaveDialog:
DefaultExt txt
Title Сохранение текстового файла
Options. OverWritePrompt true Запрос перед перезаписью файла
Filter Все файлы | * * При просмотре будут видны все файлы
3. Запустите Дизайнер меню, щелкнув два раза по значку MainMenu. В Дизайнере создайте пункты горизонтального меню с заголовками File и Help и названиями (свойство Name) File1, Help1. Создайте ниспадающие меню для пункта File - Open, Save, SaveAs, Exit и пункта Help - About с такими же значениями Name.
4. Поместите под полосой меню Panel и расположите на ней три кнопки быстрого доступа (SpeedButton). Панель является контейнером для размещенных на ней компонентов, поэтому кнопки будут перемещаться вместе с панелью. Выберите свойство Gliph для нанесения изображений на кнопках. Файлы с изображениями находятся на диске в каталоге \Delphi\Image\Buttons. Найдите изображения для обозначения открытия и сохранения файла и выхода из программы. Форма примет вид:
5. Создайте обработчики событий выбора пункта меню (щелкнув два раза
по пункту меню):
procedure TForm1.OpenClick(Sender: TObject); begin
with OpenDialog1 do if Execute then begin // Метод Execute запускает диалог и возвращает True, если // для выхода из диалога была нажата кнопка ОК , т.е. файл был // выбран
Memo1.Lines.LoadFromFile(FileName);//Загружает в текстовый
// редактор файл с заданным именем HistoryList.Add(FileName);//Добавляет имя файла в «историю» Caption:='Блокнот-’+ExtractFileName (FileName); //Функция // ExtractFileName возвращает имя файла без пути, которое // затем отображается в заголовке формы
SaveDialog1.FileName:=FileName; //Запоминается имя
// открытого файла end; end;
procedure TForm1.SaveClick(Sender: TObject); begin
if OpenDialog1.FileName<>’’ then //Если имя не пусто, то исполвзоватв его для сохранения файла Memo1.Lines.SaveToFile(SaveDialog1.FileName) else //иначе вызватв обработчик Сохранитв Как SaveAsClick(Sender); end; procedure TForm1.SaveAsClick(Sender: TObject);
Студент должен знать: Среду программирования Delphi, стандартные компоненты.
Студент должен уметь: Создать программу для решения поставленной задачи, сохранить и откомпилировать проект.
Преподаватель: Степанюк А.Ю
По теме: методические разработки, презентации и конспекты
Методические указания к выполнению лабораторных работ по теме «РАБОТА В MICROSOFT ACCESS»
На примере разработки базы данных Склад рассмотрена программа создания и управления базами данных Access 2003. Основное внимание уделено таким вопросам, как планирование баз данных, создание таблиц, з...
![](/sites/default/files/pictures/2015/03/11/picture-599857-1426066064.jpg)
Методическое пособие по выполнению лабораторной работы № 6 "Изучение работы программы по организации разделов жесткого диска - FDISK. Изучение работы программы логического форматирования жесткого диска - FORMAT" для МДК.02.02
Методическое пособие создано для реализации основной профессиональной образовательной программы в соответствии с ФГОС по специальности СПО 230113 Компьютерные системы и комплексы (базовой подгото...
![](/sites/default/files/pictures/2015/03/11/picture-599857-1426066064.jpg)
Методическое пособие по выполнению лабораторной работы № 6 "Изучение работы программы по организации разделов жесткого диска - FDISK. Изучение работы программы логического форматирования жесткого диска - FORMAT" для МДК.02.02
Методическое пособие создано для реализации основной профессиональной образовательной программы в соответствии с ФГОС по специальности СПО 230113 Компьютерные системы и комплексы (базовой подгото...
![](/sites/default/files/pictures/2012/01/02/picture-44684.jpg)
Методические указания к лабораторным занятиям по дисциплине «ФИЗИКА». Лабораторная работа "Наблюдение интерференции и дифракции"
В работе представлено описание лабораторной работы "Наблюдение интерференции и дифракции" для студентов колледжа....
![](/sites/default/files/pictures/2019/10/11/picture-463878-1570816438.jpg)
Статья «Работа с родителями как важный компонент воспитательной работы в УДОД»
В статье описываются индивидуальные и коллективные формы взаимодействия с родителями учащихся студии "АккСи+"...