Name: Блокнот усложненный
Item: Блокнот усложненный
Author: Гроза

Блокнот усложненный

[ Скачать с сервера (347.1 Kb) ]	09.11.2012, 03:53
Написать программу "Текстовый редактор", используя интерфейс SDI. Должны быть задействованы автоматически созданные горячие кнопки для редактирование текста. Но и не забывать о том, что приложение должно позволять создавать, открывать, просматривать, редактировать и сохранять текстовые файлы. Мы ранее уже приводили пример создания очень простого блокнота (см. здесь). Однако, эта версия отличается от предыдущего многофункциональностью. А создание программы упростилось, благодаря использованию интерфейса SDI. Первым делом создаем приложение, но на этот раз мы используем SDI. И так, открываем File –> New –> Other, в появившемся окне во вкладке Projects выбираем SDI application и нажимаем ОК. И вот у Вас появилась форма с уже помещенными на ней необходимыми кнопками, и это значит у нас задача практически сделана. Остается добавить еще один компонент memo (если он у вас отсутствует) и прописать для каждой кнопки необходимые действия. Расписываем первую группу кнопок (работа с документом в целом): //открываем документ procedure TMainForm.FileOpen(Sender: TObject); begin if OpenDialog.Execute then Memo1.Lines.LoadFromFile(OpenDialog.FileName); S:=OpenDialog.FileName; //переменная S имеет формат String. end; //кнопка "сохранить как..." procedure TMainForm.FileSaveAs(Sender: TObject); begin if SaveDialog.Execute then Memo1.Lines.SaveToFile(SaveDialog.FileName); S:=SaveDialog.FileName; end; //сохраняем измененный документ procedure TMainForm.FileSave(Sender: TObject); begin memo1.Lines.SaveToFile(s); end; Не забываем объявить глобальную переменную S: string . Теперь вторая группа кнопок (работа с самим текстом): //вырезать procedure TMainForm.EditCut(Sender: TObject); begin Memo1.CutToClipboard; end; //копирование procedure TMainForm.EditCopy(Sender: TObject); begin Memo1.CopyToClipboard; end; //вставить procedure TMainForm.EditPaste(Sender: TObject); begin memo1.PasteFromClipboard; end; Вот примерно так реализовываются текстовые редакторы в delphi с использованием SDI. Скачать (347.1 Kb) Подпишись, чтобы получать свежие исходники! Нравится
1 2 3 4 5 Категория: Основные файлы сайта \| Добавил: Dark_Green \| Теги: вырезать, сложный блокнот, блокнот, текстовый редактор, делфи, копировать, уроки, вставить, Интерфейс SDI
Просмотров: 6290 \| Загрузок: 960 \| Комментарии: 2 \| Рейтинг: 0.0/0