Презентация "Создание простейшего текстового редактора в Delphi" 11 класс
Подписи к слайдам:
- Создание простейшего
- текстового редактора
- в Delphi
- Преподаватель информатики
- ГБОУ СПО «Сибайский педагогический колледж»
- Гаврилова Екатерина Федоровна
- Необходимые компоненты:
- TMemo и TMainMenu
- Установим
- - свойство Align в alClient - компонент растянется на все свободное пространство формы.
- свойство ScrollBars в ssBoth, а WordWrap в False.
- уберем введенный в Memo1 текст по умолчанию, удалив этот текст из свойства Lines.
- Меню "Файл".
- Щелкнем по MainMenu1 два раза - появится окно.
- Теперь создадим меню "Файл". В нем элементы: "Создать", "Открыть", "Сохранить", "Сохранить как...", разделительную полоску (символ "-") и "Выход"
- Установим горячие клавиши как показанно на рис 1. Горячие клавиши устанавливаются в свойстве ShortCut
- Рис. 1 - Меню "Файл"
- Аналогично создаем меню "Правка":
- Рис. 2 - Меню "Правка"
- Аналогично создаем меню "Формат":
- Рис. 3 - Меню "Формат"
- Напишем код, который будет выполняться при выборе чего-либо из меню. Щелкнем по меню "Файл", а там выберем "Выход".
- Рис. 4 - Создание события onClick
- Close;
- После нажатия по меню "Выход" появляется окно редактора кода с уже готовой процедурой. Пишем:
- Реализация переноса по словам
- В меню "Формат" выберем "Перенос по словам":
- procedure TForm1.N14Click(Sender: TObject);
- begin
- If Memo1.WordWrap then
- begin
- Memo1.WordWrap:=false;
- Memo1.ScrollBars:=ssBoth;
- N14.Checked:=False;
- end
- else
- begin
- Memo1.WordWrap:=True;
- Memo1.ScrollBars:=ssVertical;
- N14.Checked:=True;
- end;
- end;
- Реализация функции "Сохранить как..."
- Воспользуемся компонентом TSaveDialog
- на вкладке Dialogs. Нам нужно *.txt, т.е. текстовые документы. Чтобы это сделать нужно найти свойство Filter и нажать на кнопку
- Появится окно. Заполните его как показанно на рис. 5.
- Рис. 5 - Редактор фильтра
- измените свойство DefaultExt на *.txt. Это расширение которое будет добавляться к файлу.
- Создадим процедуру сохранения файла. Напишем этот код сразу после {$R *.dfm}.
- Procedure SaveAs;
- begin
- If Form1.SaveDialog1.Execute then
- begin
- Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);
- FileWork:=Form1.SaveDialog1.FileName;
- end;
- end;
- Далее выберем в меню "Файл" —> "Сохранить как...".
- SaveAs;
- Запишите в тетрадь как работает эта процедура? Самостоятельно.
- В переменной FileWork будет храниться путь к файлу с которым работает пользователь. Это нужно для реализации функции "Файл" —> "Сохранить". Не забудьте ее объявить в разделе Var перед implementation.
- var
- Form1: TForm1;
- FileWork: String;
- Реализация функции "Сохранить"
- Выберем "Файл" —> "Сохранить". И пишем:
- If FileWork='' then SaveAs else Memo1.Lines.SaveToFile(FileWork);
- Реализация функции "Открыть"
- Помимо TSaveDialog существует TOpenDialog
- этот компонент предназначен для открытия файлов.
- Выложите этот компонент на форму и свойство Filter измените так же как у SaveDialog1.
- Вообще компоненты TSaveDialog и TOpenDialog очень похожи. Диалог открытия вызывается так же — функцией Execute, которая возвращает True если пользователь желает открыть файл.
- Жмем "Файл" —> "Открыть". Пишем:
- if OpenDialog1.Execute then
- begin
- Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
- FileWork:=OpenDialog1.FileName;
- end;
- Реализация функции "Создать"
- Жмем "Файл" —> "Создать". Пишем:
- FileWork:='';
- Memo1.Clear;
- Реализация функций в меню "Правка"
- По клику на меню "Вырезать":
- Memo1.CutToClipboard;
- По клику на меню "Копировать":
- Memo1.CopyToClipboard;
- По клику на меню "Вставить":
- Memo1.PasteFromClipboard;
- Реализация функций в меню "Шрифт..."
- Нам понадобится еще один компонент - TFontDialog
- Создаем событие по клику по меню "Шрифт...".
- if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font
- Завершаем...
- Изменим заголовок окна: в свойстве Caption напишите "Блокнот". Свойство Position измените на poScreenCenter для того, чтобы форма появлялась по центру экрана.
- Ну и напоследок добавим модуль XPMan в список модулей (секция uses):
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Menus, StdCtrls, XPMan;
- Этот модуль подключает XMManifest к приложению, т.е. если у Вас установленна XP, то все компоненты приобретают XP-шный вид, а если Vista - то становятся стиля Висты. Можете поэкспериментировать.
- Реализуйте программу в среде программирования Delphi
- Валеева, Ю.А. Объектно-ориентированное программирование в среде Delphi [Текст] / Ю.А. Валеева. - Новокузнецк, 2003.
- Фаронов В.В. Delphi. Программирование на языке высокого уровня: учебник для вузов–СПб: Питер, 2006.–640с.
Информатика - еще материалы к урокам:
- Конспект урока "Создание простейшего текстового редактора в Delphi" 11 класс
- Презентация "Составляем меню на день" 9 класс
- Конспект урока "Формулы в Exsel" 9 класс
- Презентация "Системы счислений. Понятие, виды, развернутая форма записи числа и ее применение" 8 класс
- Конспект урока "Системы счислений. Понятие, виды, развернутая форма записи числа и ее применение" 8 класс
- Презентация "Файл и файловая система" 10 класс