Урок 6 - Простейший текстовый редактор — Учебник по Delphi для начинающих. Автор: Борисов Сергей. Выложим на форму TMemo, и TMain. Menu. Установим свойство Align в al.

Client для того, чтобы компонент растянулся на все свободное. Установим свойство Scroll. Bars в ss. Both, а Word. Wrap в False. И уберем введенный в Memo. Lines. Щелкнем по Main. Menu. 1 два раза - появится окно.

Итак, приступим к разработке приложений в Delphi.

Блокнот (англ. Notepad) — простой текстовый редактор, являющийся частью операционных систем Microsoft Windows, начиная с вышедшей в 1985 году . Исходник программы, показывающей пример создания текстового редактора аналогичного стандартному текстовому редактору Блокнот - Автор . Или всё для работы с расширениями в Windows с помощью Delphi. Блокнот - Delphi как сделать что бы менялись 1 и 5 строки и найти кол-во строк unit Unit1; interface uses Windows, Messages, SysUtils, . Запустить блокнот (notepad) uses ShellApi;.ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW.

Теперь создадим меню . В нем элементы: . Горячие клавиши устанавливаются в свойстве Short.

Cut. Рис. Окошко редактора меню нам больше не нужно - его можно закрыть. На нашей форме уже появилось меню. Оно выпадает при щелчке, вобщем практически рабочее. Осталось. только написать код, который будет выполняться при выборе чего- либо из меню. Щлекнем по меню .

Создание события on. Click. После нажатия по меню .

Пишем. Обратите внимание, что Close и Form. Close это одно и тоже.

И наоборот. Реализация функции . Воспользуемся компонентом TSave. Dialog на вкладке Dialogs. Выложим его на форму. Нам нужно *. txt, т. Чтобы это сделать нужно найти свойство Filter и нажать на. Появится окно. Заполните его как показанно на рис.

Редактор фильтра. Теперь измените свойство Default. Ext на *. txt. Это расширение которое будет добавляться к файлу. Создадим процедуру сохранения файла. Напишем этот код сразу после . Там пишем. Что же тут делается и как все работает?

Многостраничный блокнот — компоненты TTabControl и TPageControl. Идеальный пример приводится самими разработчиками Delphi (папка . Главная » Учебник по Delphi для начинающих » Урок 6 - Простейший текстовый. Изменим заголовок окна: в свойстве Caption напишите "Блокнот". Среди Win API есть функция CloseWindow, и большинство пытается.

Очень просто! Когда пользователь выберает пункт меню . Когда вызывается функция Execute у TSave. Dialog то появляется диалог сохранения и если пользователь нажмет кнопку сохранить. Executeвозвратит True иначе False. Если возвратится True то будет выполнена процедура Save.

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

Должно быть вроде этого: var. Form. 1: TForm. 1. File. Work: String. Реализация функции . И пишем: If File. Work='' then Save. As else Memo. 1. Lines.

Save. To. File(File. Work). Если пользователь уже сохранял файл то в File. Work будет что- то храниться, в любом случае не .

Если хранится '', т. Если переменная File.

Work не пустая, то сохраняем файл по тому пути который указан в File. Work. Реализация функции . И если Вы хоть малость знаете английский, то уже поняли бы, что этот компонент предназначен для открытия файлов. Выложите этот компонент на форму и свойство Filter измените так же как у Save. Dialog. 1. Вообще компоненты TSave. Dialog и TOpen. Dialog очень похожи. Диалог открытия вызывается так же — функцией Execute, которая возвращает True если пользователь желает открыть файл.

Жмем . Пишем: if Open. Dialog. 1. Execute then. Memo. 1. Lines. Load. From. File(Open. Dialog. File. Name). File.

Work: =Open. Dialog. File. Name. end; Запускаем программу F9 и пробуем. Если все делали правильно, то все должно работать. Реализация функции . Пишем. Тут все понятно и без объяснений. Но все же объясню: первая строчка очищает File. Work, т. е. Функция для вызова такая же как у TOpen. Программа Расчета Металлочерепицы Онлайн здесь.

Dialog и TSave. Dialog - Execute. Создаем событие. по клику по меню . Они хранятся в свойстве Font у Font. Dialog. 1. Завершаем.. Основная часть программы написана. Осталось совсем немного. Нам нужно сделать активной форму, чтобы в инспекторе объектов появились ее свойства, но из- за.

Memo. 1 который растянут на всю форму не получается это сделать. Есть несколько вариантов. Можно просто выделить форму в Object Tree.

View. А можно выделить Memo. Shift и щелкнуть по Memo. Итак, Вы активировали форму. Изменим заголовок окна: в свойстве Caption напишите . Свойство Position измените на po. Screen. Center для того.

Ну и напоследок добавим модуль XPMan в список модулей (секция uses). Выглядель это должно примерно так: uses. Windows, Messages, Sys. Utils, Variants, Classes, Graphics, Controls, Forms. Dialogs, Menus, Std.

Ctrls, XPMan. Этот модуль подключает XMManifest к приложению, т.