Презентация "Создание простейшего текстового редактора в Delphi" - скачать презентации по Информатике

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

Рис. 3 - Меню "Формат"

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

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

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

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

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

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

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;

Создаем событие по клику по меню "Шрифт...".

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

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

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

Этот модуль подключает XMManifest к приложению, т.е. если у Вас установленна XP, то все компоненты приобретают XP-шный вид, а если Vista - то становятся стиля Висты. Можете поэкспериментировать.