Delphi Studio » Примеры на Delphi » Примеры на Delphi Система » Текстовый редактор на Delphi. (Memo) Пример стандартного Блокнота

    "Уважаемые посетители, если вы хотите задать вопросы и получить ответы, то регистрируйтесь и добавляйте свои вопросы тут: " Задать вопрос.
      Delphi Studio Текстовый редактор на 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. Бросаем его на форму и переходим на пункт "Открыть" и кликаем по нему, получится:
      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)
      21034 | 0

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

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

            Лучшее на 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 нашли

            создание richedit delphi создание richedit delphi
            delphi исходники delphi исходники
            floattostr floattostr
            StringGrid пример с исходниками StringGrid пример с исходниками
            delphi развернуть строку delphi развернуть строку
            delphi 7 удаление из реестра delphi 7 удаление из реестра
            заполнить opendialog delphi заполнить opendialog delphi
            delphi 7 автозапуск delphi 7 автозапуск
            база исходников delphi база исходников delphi
            delphi form свойства delphi form свойства
            цикл слова RichEdit c++ builder цикл слова RichEdit c++ builder
            программа отправки емейла программа отправки емейла
            udp activex udp activex
            браузер на делфи языке браузер на делфи языке
            книги RAD Studio 2010 книги RAD Studio 2010
            CoolTrayIcon описания CoolTrayIcon описания
            как добавить в автозагрузку  через реестр как добавить в автозагрузку через реестр
            скачать Ревич Ю. В. Нестандартные приемы программирования на Delphi скачать Ревич Ю. В. Нестандартные приемы программирования на Delphi
            Запуск формы при нажатии кнопки Delphi Запуск формы при нажатии кнопки Delphi
            При нажатии на кнопку открылась форма Delphi При нажатии на кнопку открылась форма Delphi
            как добавить программу в трей как добавить программу в трей
            Indy delphi 2010 Indy delphi 2010
            делаем текстовый редактор на дельфи delphi делаем текстовый редактор на дельфи delphi
            андрей чернышев андрей чернышев
            idhttp скачка  файлов в файл idhttp скачка файлов в файл
            delphi memo выделить строку delphi memo выделить строку
            самоучитель по delphi 7 для начинающих самоучитель по delphi 7 для начинающих
            исходники бота на delphi исходники бота на delphi
            Учебник делфи 7 Учебник делфи 7
            gifimage delphi7 gifimage delphi7
            компонент delphi для email
компонент delphi для email
            strtofloat delphi пример
strtofloat delphi пример
            проект двумерный массив delphi
проект двумерный массив delphi
            скачать process pascal
скачать process pascal
            strtoint delphi 7 memo
strtoint delphi 7 memo
            pascal как свернуть программу в трей
pascal как свернуть программу в трей
            из edit в текстовый файл 
из edit в текстовый файл


            Информация

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


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

            Книга Программирование в Delphi глазами хакера. Фленов
            Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
            Книга Библия Delphi Михаил Фленов (2-е издание) + CD
            Книга Библия Delphi Михаил Фленов (2-е издание) + CD - Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
            Книга Программирование в Delphi глазами хакера. Фленов
            Книга Программирование в Delphi глазами хакера. Фленов - В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей


            Опрос

            Что вы хотите больше на 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