Блокнот на Delphi своими руками

Вот пример того, как может преобразится обычный блокнот после того, как мы немного по фантазируем. Эта страница предназначена для новичков, и если вы уже знаете, как загружать, сохранять, редактировать текстовые файлы, то можете смело пропускать эту страницу.

Первым делом запустим Delphi и создадим новый проект. Теперь рассмотрим компоненты, которые нам понадобятся для создания блокнота.
1.Memo - компонент для вывода и редактирования текста.
Страница dialog:
2. SaveDialog - диалог для сохранения файлов.
3. OpenDialod - диалог открытия файлов.
4. FontDialog - Позволяет задавать свойства шрифта.
5. ColorDialog - Позволяет выбрать цвет.
6. Понадобится еще MainMenu, что бы создать меню выбора, так же кнопки, метки, в общем все что покажется Вам нужным.

Приступим к созданию блокнота.

Перенесем на форму компонент MainMenu, щелкнем на нем дважды, появится конструктор. Для создания пункта меню кликните на незаполненном пункте в редакторе и задайте название в свойстве Caption, можете задать имя в свойстве name, но если вы этого не сделаете оно будет задано автоматически (N1, N2, N3, и т.д.). Для создания разделительной черты в свойстве Caption поставьте "-". Если перед какой либо буквой в заголовке поставить знак "&", то эта буква будет подчеркнута и при нажатии сочетания +<кнопка соответствующая букве перед которой стоит"&">, то этот пункт мены будет открыт. Таким образом составте желаемые пункты меню.

Перенесите на форму компонент Memo и описанные выше диалоги. Расположите все компоненты так, чтобы окно приняло желаемый вид. Проектирование формы закончено, теперь можно приступать к процессу кодирования.

Пишем код.

Сейчас наша программа не способна что либо делать, пора это исправить.
Щелкнув два раза на MainMenu, создаем пункт Файл, в нем Создать, щелкаем два раза на этом пункте, и открывается окно редактора кода где вводим следующее:

Memo1.Lines.Clear;\\ эта срока будет очищать окно редактирования текста.

Создаем в меню Файл пункт Открыть и вставляем следующий код, который будет вызывать окно открытия документа.

With OpenDiaiog1 do
Begin
If not Execute then Exit; 
Memo1.LinesLoadFromFile (FileName); 
End; 

У этого компонента есть такое замечательное свойство Filter, где Вы можете задать расширение файлов которые будет открывать редактор.

Пример: В левом поле название "Тестовые файлы" в правом расширения *.txt, так можно открывать и pas и dfm, в общем все.

Аналогично создаем пункт сохранения и заполняем процедуру.

With SaveDialog1 do
Begin
If not Execute then Exit;
Memo1.Lines.SavetoFile (FiLeName);
end; 

Далее, создаем меню Правка, и начинаем создавать пункты, Вставить, Копировать, Вырезать.

Memo1.PasteFromClipboard;
Memo1.CopyToClipboard;
Memo1.CutToClipboard;

Теперь создадим меню Формат или Вид, в котором создадим пункт Шрифт, в процедуру впишем данный код.

With FontDialog1 do
Begin
if not Execute then Exit;
Memo1.Font:=Font;
End; 

Будет вызвано стандартное окно изменения параметров шрифта.

Создаем меню Цветовые настройки.

With ColorDialog1 do
Begin
if not Execute then Exit;
Memo1.Color:=Color;
End; 

Здесь можно изменять цветовую гамму окна.

Вот и все программа. Замечу, что в ней использовались только стандартные процедуры. Теперь Вы можете доделать этот редактор, и помните, что полет Вашей мысли ограничивается только компилятором:) В заключении хочу сказать: Вспомните как расписывал ручку В.И.Ленин?.. так что учится, учится, учится. Читайте книги, журналы ( я тут недавно такой журнальчик нашел "Программист", советую посмотреть, много нового узнаете), и другие источники знаний.