Презентация на тему Создание простейшего текстового редактора в Delphi

в alClient - компонент растянется на все свободное

появится окно.
Теперь создадим меню "Файл". В нем элементы:

Рис. 1 - Меню "Файл"

"Правка"
Аналогично создаем меню "Формат":
Рис. 3 - Меню "Формат"

из меню. Щелкнем по меню "Файл", а там выберем

Рис. 4 - Создание события onClick

Close;

После нажатия по меню "Выход" появляется окно редактора кода с уже готовой процедурой. Пишем:

по словам":
procedure TForm1.N14Click(Sender: TObject);
begin
If Memo1.WordWrap then
begin
Memo1.WordWrap:=false;

вкладке Dialogs. Нам нужно *.txt, т.е. текстовые документы. Чтобы

Появится окно. Заполните его как показанно на рис. 5.

Рис. 5 - Редактор фильтра

измените свойство DefaultExt на *.txt. Это расширение которое будет добавляться к файлу.

после {$R *.dfm}.
Procedure SaveAs;
begin
If Form1.SaveDialog1.Execute then
begin
Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);

Далее выберем в меню "Файл" —> "Сохранить как...".

SaveAs;

с которым работает пользователь. Это нужно для реализации функции

var
Form1: TForm1;
FileWork: String;

Реализация функции "Сохранить"
Выберем "Файл" —> "Сохранить". И пишем:

If FileWork='' then SaveAs else Memo1.Lines.SaveToFile(FileWork);

предназначен для открытия файлов.
Выложите этот компонент на форму и

if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
FileWork:=OpenDialog1.FileName;
end;

в меню "Правка"
По клику на меню "Вырезать":
Memo1.CutToClipboard;
По клику на

Memo1.CopyToClipboard;

По клику на меню "Вставить":

Memo1.PasteFromClipboard;

компонент - TFontDialog
Создаем событие по клику по меню

if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font

Завершаем...

Изменим заголовок окна: в свойстве Caption напишите "Блокнот". Свойство Position измените на poScreenCenter для того, чтобы форма появлялась по центру экрана.

Ну и напоследок добавим модуль XPMan в список модулей (секция uses):

Forms,
Dialogs, Menus, StdCtrls, XPMan;
Этот модуль подключает XMManifest к