Главная » Файлы » Основные файлы сайта |
Блокнот усложненный
[ Скачать с сервера (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.
Подпишись, чтобы получать свежие исходники!
Нравится | |
Просмотров: 6293 | Загрузок: 960 | Комментарии: 2 | Рейтинг: 0.0/0 |
Другие примеры
» | Графический редактор. Загрузка изображения из графического файла с использованием стандартного диалога открытия графических изображений (0) |
Всего комментариев: 2 | ||
| ||