Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Опубликуйте свой материал в официальном Печатном сборнике методических разработок проекта «Инфоурок»

(с присвоением ISBN)

Выберите любой материал на Вашем учительском сайте или загрузите новый

Оформите заявку на публикацию в сборник(займет не более 3 минут)

+

Получите свой экземпляр сборника и свидетельство о публикации в нем

Инфоурок / Другое / Другие методич. материалы / Лабораторная работа Стандартные диалоги и компоненты Среда Delphi
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 24 мая.

Подать заявку на курс
  • Другое

Лабораторная работа Стандартные диалоги и компоненты Среда Delphi

библиотека
материалов

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


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


Тема 3.3: Стандартные диалоги и компоненты.

Цель: Получить практические навыки создания приложений с применением стандартных диалогов и компонентов в интегрированной среде разработки Delphi.

Оборудование: IBM – совместимые компьютеры.

Место проведения: Компьютерный класс.

Техника безопасности: См. инструкцию.


Ход работы

Работа иллюстрирует использование стандартных диалоговых окон, меню, кнопок быстрого доступа, многострочного редактора Memo.

1. Откройте новый проект и разместите на форме компоненты MainMenu
(главное меню), PopupMenu ( всплывающее меню). На странице Dialogs найди­
те и разместите на форме компоненты
OpenDialog (диалоговое окно выбора
имени файла для открытия),
SaveDialog (диалоговое окно выбора имени файла
для сохранения),
FontDialog (выбор шрифта), ColorDialog (выбор цвета). Все
эти компоненты изобразятся на форме в виде значков. Добавьте компонент
Memo (редактор текста) и задайте его свойство Align (выравнивание) в alBottom .
Установите заголовок формы - Блокнот.

Memo представляет собой многострочный редактор текста. Содержимое редактора хранится в свойстве Lines. Это - свойство класса TStrings (набор строк).

2. Задайте свойства компонентов для выбора имен файлов:

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. Найдите изображения для обозначения открытия и сохранения файла и выхода из программы. Форма примет вид (Рисунок 1):

hello_html_1128669d.png

Рисунок 1 – Вид формы


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);


Задание

Разработать программу текстового редактора с возможностью выполнения основных функций (открыть, сохранить, закрыть) для работы с файлами, и обработки текста (вырезать, копировать, вставить, выделить всё, очистить) с созданием главного и контекстного меню, в которых продублировать основные функции программы.


Контрольные вопросы

  1. Как обратится к буферу обмена в программном коде?

  2. Какие стандартные диалоговые окна можно использовать в проекте?

  3. Как обратится к выделенному фрагменту текста и какие объекты позволяют это сделать?

  4. Как обратиться к абзацу текста?

  5. В какие объекты можно вывести содержимое текстового файла?


Литература

  1. Культин Н. Б. Основы программирования в Delphi XE. — СПб.: БХВ-Петербург, 2011. — 416 с.: ил. + CD-ROM — (Самоучитель)

  2. Семакин И.Г Основы программирования и баз данных: учебник для студ. учреждений сред. проф. образования. — М.: Издательский центр «Академия», 2014. — 224 с.

  3. Семакин И.Г., Шестаков А.П. Основы алгоритмизации и программирования: учебник для студ учреждений сред. проф. образования — М. : Издательский центр «Акаде­мия», 2013.— 304 с.


3


Автор
Дата добавления 30.11.2016
Раздел Другое
Подраздел Другие методич. материалы
Просмотров54
Номер материала ДБ-402578
Получить свидетельство о публикации

Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх