Delphi Studio » Примеры на Delphi » Примеры на Delphi Система » Текстовый редактор на Delphi. (Memo) Пример стандартного Блокнота
Текстовый редактор на Delphi. (Memo) Пример стандартного Блокнота
Сейчас я покажу пример на Delphi, как можно создать простой текстовый редактор похожий на Блокнот, с использованием компонента Memo
Для нашего текстового редактора мы будем использовать компонент Memo. И так, компонент Memo на форме, очищаем его от стандартного текста Memo1 Memo.Lines.Clear, растягиваем на всю форму Memo.Align := alClient, теперь делаем нашему текстовому редактору вертикальные и горизонтальные полосы прокрутки Memo.ScrollBars := ssBoth и уберём границы Memo.BorderStyle := bsNone. При запуске наш текстовый редактор должен быть на весь экран, для этого в нашей форме меняем свойство Form1.WindowState := wsMaximized. Добавим нашему редактору меню, бросьте на форму компонент MainMenu и кликните на него 2 раза. Сперва сделаем 1 вкладку "Файл". Копию Блокнота мы делать не будем, поэтому на первой вкладке сразу добавим пункт "Открыть". Ну уже понятно что нам нужен компонент OpenDialog. Бросаем его на форму и переходим на пункт "Открыть" и кликаем по нему, получится:
begin
end;
Вставляем между begin и end;
EditFile := Form1.OpenDialog.FileName;
Memo.Lines.LoadFromFile(EditFile);
Form1.Caption := ExtractFileName(EditFile)+' - Блокнот';
Теперь наш текстовый редактор может открывать текстовые файлы. Для красивости можно сделать в нашем редакторе небольшой отступ сверху и слева, код:
var
Rect: TRect;
begin
SendMessage(Memo.Handle, EM_GETRECT, 0, LongInt(@Rect));
Rect.Left:= 4;
Rect.Top:= 4;
SendMessage(Memo.Handle, EM_SETRECT, 0, LongInt(@Rect));
Memo.Refresh;
Form1.Caption := 'Безымянный - Блокнот';
end;
И поменяем шрифт как в Блокноте, Memo.Font.Name := 'Lucida Console'; и Memo.Font.Size := 10; Вот теперь мы становимся похожим на стандартный текстовый редактор под названием Блокнот :) Ну теперь создадим вкладку "Сохранить" и в помощь нам приходит компонент SaveDialog. Но сперва добавим в var глобальную переменную EditFile: String;. Теперь сама процедура сохранения:
begin
if EditFile='' then
if SaveDialog.Execute then
begin
EditFile := SaveDialog.FileName;
Case Form1.SaveDialog.FilterIndex of
1 : EditFile:=ChangeFileExt(EditFile,'.txt');
end;
end;
(ActiveMDIChild as TForm);
Memo.Lines.SaveToFile(EditFile);
(ActiveMDIChild as TForm).Caption := EditFile;
Memo.Lines.SaveToFile(EditFile);
end;
Теперь создаём процедуру "Сохранить как...":
begin
if SaveDialog.Execute then
begin
EditFile := SaveDialog.FileName;
Case Form1.SaveDialog.FilterIndex of
1 : EditFile:=ChangeFileExt(EditFile,'.txt');
end;
end;
(ActiveMDIChild as TForm);
Memo.Lines.SaveToFile(EditFile);
(ActiveMDIChild as TForm).Caption := EditFile;
end;
Уже наш текстовый редактор может открывать файл, сохранять файл и сохранять как. Ну раз у нас это текстовый редактор, значит мы должны открывать текстовые файлы. Нажимаем на OpenDialog переходим и Object Inspector -> Filter. В таблице Filter Name пишем Текстовые документы (*.txt), в Filter пишем *.txt. Ниже в таком же порядке: Все файлы и *.*. Тоже самое проделайте с SaveDialog. Рано конечно но всё же создадим вкладку "Выход" и код:
begin
Close;
end;
Создаём новую вкладку "Правка" и пункты: Вырезать, Копировать, Вставить, Удалить и Выделить всё
Вырезать
Копировать
Вставить
Memo.PasteFromClipboard;
Удалить
Выделить всё
продолжение следует............
21034 | 
0
Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.
Лучшее на Delphi Studio
Лучшие книги по Delphi
-
Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010 
Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом
- Delphi Studio Примеры на Delphi Примеры на Delphi [Сеть Интернет] Примеры на Delphi [Система] Примеры на Delphi [Графика Мультимедиа] Примеры на Delphi [Базы данных] Delphi Исходники Исходники Delphi [Сеть Интернет] Исходники Delphi [Система] Исходники Delphi [Графика Мультимедиа] Delphi Исходники [Базы данных] Компоненты Delphi Скачать Компоненты Delphi Скачать Delphi / Pascal Скачать Книги, Учебники Delphi Скачать Книги, Учебники Pascal Delphi Статьи Pascal Статьи Вопросы и ответы по Delphi Вопросы и ответы по Pascal Карта сайта Delphi Studio Канал RSS Delphi Studio
создание richedit delphi
delphi исходники
floattostr
StringGrid пример с исходниками
delphi развернуть строку
delphi 7 удаление из реестра
заполнить opendialog delphi
delphi 7 автозапуск
база исходников delphi
delphi form свойства
цикл слова RichEdit c++ builder
программа отправки емейла
udp activex
браузер на делфи языке
книги RAD Studio 2010
CoolTrayIcon описания
как добавить в автозагрузку через реестр
скачать Ревич Ю. В. Нестандартные приемы программирования на Delphi
Запуск формы при нажатии кнопки Delphi
При нажатии на кнопку открылась форма Delphi
как добавить программу в трей
Indy delphi 2010
делаем текстовый редактор на дельфи delphi
андрей чернышев
idhttp скачка файлов в файл
delphi memo выделить строку
самоучитель по delphi 7 для начинающих
исходники бота на delphi
Учебник делфи 7
gifimage delphi7
компонент delphi для email
strtofloat delphi пример
проект двумерный массив delphi
скачать process pascal
strtoint delphi 7 memo
pascal как свернуть программу в трей
из edit в текстовый файл
Сайт Delphi Studio рассчитан для начинающих, новичков, чайников, которые решили программировать на Delphi :)
Добавляйте свои примеры, исходники, компоненты, статьи и тогда на сайте будет много полезной информации, что поможет друг другу находить нужный материал.
Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
А знаете ли вы что такие известные программы как AIMP, Skype, QIP, QIP Infium, R&Q, The Bat!, FL Studio, Guitar Pro, Game Maker, Total Commander, PowerArchiver, Download Master написаны на Delphi? И это далеко не весь список программ чем может похвастаться продукция Borland Delphi!
18.05.2010
08.05.2010
28.04.2010
24.04.2010
23.04.2010
22.04.2010
21.04.2010
19.04.2010
18.04.2010
17.04.2010
16.04.2010
15.04.2010
14.04.2010
13.04.2010
Май 2010
Апрель 2010
