Delphi Studio Текстовый редактор на Delphi. (Memo) Пример стандартного Блокнота
Delphin | 8-05-2010, 16:58 | Примеры на Delphi » Примеры на Delphi Система

Текстовый редактор на 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. Бросаем его на форму и переходим на пункт "Открыть" и кликаем по нему, получится:
procedure TForm1.N2Click(Sender: TObject);
begin

end;

Вставляем между begin и end;
if OpenDialog.Execute then
EditFile := Form1.OpenDialog.FileName;
Memo.Lines.LoadFromFile(EditFile);
Form1.Caption := ExtractFileName(EditFile)+' - Блокнот';

Теперь наш текстовый редактор может открывать текстовые файлы. Для красивости можно сделать в нашем редакторе небольшой отступ сверху и слева, код:
procedure TForm1.FormCreate(Sender: TObject);
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;. Теперь сама процедура сохранения:

procedure TForm1.N3Click(Sender: TObject);
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;

Теперь создаём процедуру "Сохранить как...":
procedure TForm1.N4Click(Sender: TObject);
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. Рано конечно но всё же создадим вкладку "Выход" и код:
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;

Создаём новую вкладку "Правка" и пункты: Вырезать, Копировать, Вставить, Удалить и Выделить всё
Вырезать
Memo.CutToClipboard;

Копировать
Memo.CopyToClipboard;

Вставить
Memo.PasteFromClipboard;
Удалить
Memo.ClearSelection;

Выделить всё
Memo.SelectAll;


продолжение следует............
  • 85
 (голосов: 1)
 14323 | 0
текст, редактор, Memo, пример, delphi

    Информация
    Информация

      Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.

        Лучшее на Delphi Studio

        Лучшие книги по Delphi

        • Книга Delphi 2010 Handbook with Source Code
          Книга Delphi 2010 Handbook with Source Code - Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010
        • Книга Программирование в Delphi глазами хакера. Фленов
          Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
        • Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов
          Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов - Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
        • Книга Библия Delphi Михаил Фленов (2-е издание) + CD
          Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
        • Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б
          Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б - Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
        • Книга Delphi 7 Учебный курс С.Бобровский
          Книга Delphi 7 Учебный курс С.Бобровский - Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
        • Книга Delphi Быстрый Старт
          Книга Delphi Быстрый Старт - В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
        • Книга Indy in Depth. Глубины Indy
          Книга Indy in Depth. Глубины Indy - Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
        • Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов
          Книга OpenGL - Графика в проектах Delphi + CD. М.В.Краснов - Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
        • Книга Delphi 7 для профессионалов. Марко Кэнту
          Книга Delphi 7 для профессионалов. Марко Кэнту - Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом



        Поиск на Delphi Studio


        На Delphi Studio нашли

        mouse_event в c++ mouse_event в c++
        скриншот по сети делфи скриншот по сети делфи
        cooltrayicon delphi 7 cooltrayicon delphi 7
        как свернуть в трей visual studio 2008 как свернуть в трей visual studio 2008
        showmessage delphi showmessage delphi
        текстовый редактор исходники Delphi текстовый редактор исходники Delphi
        добавить программу в авто загрузку на delphi добавить программу в авто загрузку на delphi
        проверка текста delphi проверка текста delphi
        дельфи для чайников дельфи для чайников
        печать в Opengl,дельфи печать в Opengl,дельфи
        скрыть форму на панели пуск в delphi 7 скрыть форму на панели пуск в delphi 7
        delphi статьи delphi статьи
        открытие открытие "cd rom" OR cdrom windows
        вконтакте delphi вконтакте delphi
        для чайников или для новичков как программно перезагруить компьютер delphi для чайников или для новичков как программно перезагруить компьютер delphi
        самоучитель delphi скачать самоучитель delphi скачать
        исходник передачи скриншота делфи исходник передачи скриншота делфи
        Delphi как закрыть программу по горячей клавише Delphi как закрыть программу по горячей клавише
        delphi DateToStr delphi DateToStr
        извлечение файлов delphi извлечение файлов delphi
        0h 0h
        проверить есть ли файл delphi проверить есть ли файл delphi
        библия delphi 2-е издание купить библия delphi 2-е издание купить
        компонент из формы компонент из формы
        авторизация mail.ru idhttp; авторизация mail.ru idhttp;
        известные программы написанные на delphi известные программы написанные на delphi
        idftp delphi idftp delphi
        if opendialog execute if opendialog execute
        как программно поменять BorderStyle у Form как программно поменять BorderStyle у Form
        richedit editor example delphi richedit editor example delphi
        программа для отправки почты e-mail sender на делфи программа для отправки почты e-mail sender на делфи
        обновление IdHTTP Delphi обновление IdHTTP Delphi
        программы на Delphi программы на Delphi
        делфи нажать кнопку програмно делфи нажать кнопку програмно
        Delphi 2010 hf,jnf c vfnhbwfvb Delphi 2010 hf,jnf c vfnhbwfvb
        как програмно нажимать мышь как програмно нажимать мышь
        сетевые приложения на Delphi примеры программ сетевые приложения на Delphi примеры программ


        Информация

        Сайт Delphi Studio рассчитан для начинающих, новичков, чайников, которые решили программировать на Delphi :)
        Добавляйте свои примеры, исходники, компоненты, статьи и тогда на сайте будет много полезной информации, что поможет друг другу находить нужный материал.


        Случайные новости

        Как создать браузер (WebBrowser) Пример на Delphi
        Как создать браузер (WebBrowser) Пример на Delphi - Пример создания браузера на Delphi с использованием компонента WebBrowser
        Как загрузить в Memo текст из внешнего файла Пример на Delphi
        Как загрузить в Memo текст из внешнего файла Пример на Delphi - Пример на Delphi показывающий как можно загрузить в Memo текст из внешнего файла
        Как не дать открыть Диспетчер задач Windows Пример на Delphi
        Как не дать открыть Диспетчер задач Windows Пример на Delphi - Пример на Delphi показывающий как не дать открыть Диспетчер задач Windows. На форму нужно кинуть компонент Timer


        Опрос

        Что вы хотите больше на Delphi Studio?
        Исходники
        Книги, Учебники
        Компоненты
        Статьи
        Примеры


        Лучшее на Delphi Studio


        Информация

        А знаете ли вы что такие известные программы как AIMP, Skype, QIP, QIP Infium, R&Q, The Bat!, FL Studio, Guitar Pro, Game Maker, Total Commander, PowerArchiver, Download Master написаны на Delphi? И это далеко не весь список программ чем может похвастаться продукция Borland Delphi!


        rss