Приложение «Текстовый редактор» № 2

Цель работы — создать приложение «Текстовый редактор».

• 1. Создайте новое приложение. Назовите форму TextForm (значение свойства Name), и дадим ей заголовок MyEditor (значение свойства Caption).
• 2. Сохраните модуль формы и весь проект, выполнив команду меню File —> Save All. Модуль назовите MyEditor. pas, а файл проекта — Му_ Editor, dpr.
• 3. Поместите компонент MainMenu на форму и дайте ему имя MainMenu (значение свойства Name). Вызовите редактор меню Menu Designer.

Puc. 108. Текст пункта меню

4. Назовите первый пункт FileMenuItem (значение свойства Name) и заголовок &File (значение свойства Caption). Символ & обеспечивает подчеркивание следующего за ним символа при отображении текста. Подчеркнутая буква используется в комбинации с клавишей Alt для быстрого выбора пункта меню, поэтому активизация пункта File будет происходить по комбинации клавиш Alt+F.

Чтобы горячие клавиши не дублировались в нескольких пунктах компонента MainMenu существует свойство AutoHotKeys. Если оно установлено в значение maAutomatic, то подбор горячих клавиш выполняется автоматически.

5. Под пунктом File нужно создать подчиненное меню со списком команд: Open…, Save As…, Close и Exit (свойство Caption). В программе они должны называться OpenMenuItem, SaveAsMenuItem, CloseMenuItem и ExitMenuItem соответственно (рис. 109).

Puc. 109. Пункты в меню File.

Логически связанные между собой команды принято отделять от других команд горизонтальной линией. Для этого вставьте новый пункт (рис. 110) и запишите в значении свойства Caption символ минуса (-).

7. Необходимо назначить пункту комбинацию клавиш. Для этого активизируйте пункт в дизайнере меню, перейдите к окну свойств и выберите в списке значений свойства Shortcut требуемую комбинацию клавиш (рис. 111). Если ее там нет, то введите название комбинации клавиш вручную.

Добавьте самостоятельно пункты меню и комбинации горячих клавиш (рис. 112).

8. Каждый пункт меню помимо текста может содержать значок (свойство Bitmap). Вызовите дизайнер меню для компонента MainMenu

формы TextForm. Выберите пункт File —> Open и перейдите к свойству Bitmap в окне свойств (рис. 113).

Рис. 110. Разделительная линия в меню

Рис. 111. Комбинация клавиш для активизации пункта меню

Установка значения свойства Bitmap осуществляется с помощью Picture Editor, вызываемого нажатием кнопки с многоточием в поле свойства (рис. 114). В этом окне нажмите кнопку Load… и выберите файл Open. bmp из коллекции рисунков (каталог Images). Необходимо заранее подготовить каталог Images.

Рис. 112. Пункты меню

Рис. 113. Свойство Bitmap пункта меню

После выбора рисунка закройте диалоговое окно с помощью кнопки ОК.

9. В тех случаях, когда пунктов меню очень много, пункты главного меню дублируются в контекстных меню и панели кнопок, используют компонент ImageList. Поместите компонент ImageList на форму и дайте ему имя ImageList. Обратите внимание, что стандартные значения свойств Width и Height равны 16, поэтому не забудьте их изменить, если ваши значки имеют другие размеры.

Рис. 114. Окно Picture Editor

Рис. 115. Пункт Open имеет значок

Редактирование списка рисунков осуществляется в специальном окне. Вызовите его с помощью команды ImageList Editor…, находящейся в контекстном меню компонента ImageList (рис. 116).

Рис. 116. Вызов окна для редактирования списка значков

В открывшемся окне нажмите кнопку Add… и выберите несколько файлов из коллекции рисунков (каталог Images).

Рис. 117. Окно, в котором редактируется список значков

Параметр Transparent Color — это цвет пикселей, которые становятся прозрачными. Параметры Options и Fill Color используются, если размеры рисунка не совпадают с размерами, указанными в свойствах Width и Height компонента ImageList. Параметр Options принимает следующие значения: Crop — заполнить лишние пиксели цветом Fill Color (либо отсечь правую нижнюю часть рисунка, если рисунок превышает размеры); Stretch — растянуть/сжать рисунок до принятых размеров; Center — центрировать рисунок, заполнив оставшуюся область цветом Fill Color.

Закройте диалоговое окно с помощью кнопки ОК.

10. Далее следует указать компоненту MainMenu, откуда брать значки для своих пунктов. Выделите компонент MainMenu на форме и перейдите к свойству Images в окне свойств. Из списка значений свойства Images выберите элемент ImageList.

Теперь осталось указать пунктам меню номера соответствующих им значков. Для этого вызовите дизайнер меню для компонента MainMenu. Далее выберите пункт Open… (программный идентификатор OpenMenuItem), перейдите к свойству Imagelndex и выберите из раскрывающегося списка подходящий значок (рис. 118).

Puc. 718. Установка значка для пункта меню.

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

11. Необходимо убрать значок, хранящийся в свойстве Bitmap компонента OpenMenuItem, поскольку используется значок, заданный с помощью свойства Imagelndex. Чтобы не держать в программе ненужные данные, удалите значок из свойства Bitmap. Для этого вызовите дизайнер меню для компонента MainMenu и выберите пункт Open… Далее в окне свойств перейдите к свойству Bitmap и нажмите клавишу Del, после чего нажмите клавишу Enter.

Значок, заданный с помощью свойства Bitmap, используется только в случае, когда свойство Imagelndex содержит отрицательное число.

Рис. 119. В меню добавлены значки

12. Реализуйте закрытие формы по команде Exit. Решение этой задачи сводится к обработке события OnClick компонента ExitMenuItem. Это событие возникает при выборе пользователем в меню пункта Exit. Активизируйте в дизайнере меню пункт Exit и выберите в окне свойств вкладку Events для создания процедуры обработки события OnClick.

Puc. 120. Создание обработчика команды меню.

procedure TTextForm. ExitMenuItemClick (Sender: TObject);

begin

Close;

end;

Проверим, работает ли меню. Выполните компиляцию и запустите проект. На экране появится форма со строкой меню под заголовком. По команде Exit (рис. 121) окно закроется и приложение завершится.

13. Сделайте недоступными те или иные пункты меню пользователю в тот или иной момент времени. Например, сделать недоступными пункты Save As…, Close, когда нет открытого файла. Для этого в каждом из указанных пунктов меню установите свойство Enabled в значение False (рис. 122).

Рис. 121. Проверка работы команды Exit

Puc. 122. Недоступные пункты меню.

14. Во время работы приложения нужно делать пункты меню доступными или недоступными в зависимости от того, открыт файл или нет. Сделаем эти действия универсальными, оформив в виде отдельного метода EnableCommands. Параметр Enable данного метода определяет, в какое состояние перевести пункты меню: доступны — True или недоступны — False.

Туре

TTextForm = class (TForm) private

{ Private declarations } procedure EnableCommands (Enable: Boolean); end;

procedure TTextForm. EnableCommands (Enable: Boolean);

begin

SaveAsMenuItem.Enabled := Enable;

CloseMenuItem.Enabled := Enable;

CutMenuItem.Enabled := Enable;

CopyMenuItem.Enabled := Enable;

PasteMenuItem.Enabled := Enable;

FontMenuItem.Enabled := Enable; end;

Используя созданную выше процедуру, создайте обработчик команды Open…:

procedure TTextForm. OpenMenuItemClick (Sender: TObject); begin

// Открыть файл и разрешить команды EnableCommands (True); end;

Используя созданную выше процедуру, создайте обработчик команды Close:

procedure TTextForm. CloseMenuItemClick (Sender: TObject); begin

// Закрыть файл и запретить команды EnableCommands (False); end;

Выполните компиляцию и запустите программу.

Рис. 123. Меню работающей программы.

Некоторые пункты недоступны

15. Создайте контекстное меню с пунктами, как и главное меню, в дизайнере меню. Дайте соответствующие имена: CutPopupItem, CopyPopupItem, PastePopupItem, DeletePopupItem. Во всех пунктах контекстного меню установите следующие свойства:

Enabled = False Grouplndex = 1 Radioitem = True.

Чтобы команды всплывающего меню дублировали некоторые команды главного меню, пометьте пункты, установив в них свойство Checked в значение True (рис. 124).

Рис. 124. Команды контекстного меню

16. Для вызова контекстного меню по щелчку правой кнопки мыши активизируйте форму и запишите в значении свойства PopupMenu имя разработанного ранее контекстного меню — PopupMenu (рис. 125). Можно ввести это значение с клавиатуры или выбрать из раскрывающегося списка.

Рис. 125. Привязка контекстного меню к форме

17. Теперь установите значки для пунктов контекстного меню формы. Активизируйте форму TextForm и выберите на ней компонент PopupMenu. Затем в окне свойств перейдите к свойству Images и из списка значений этого свойства выберите элемент ImageList. После этого вызовите дизайнер меню у компонента PopupMenu, и по аналогии с главным меню, назначьте номера подходящих значков для пунктов контекстного меню. Проектирование меню завершено.

18. Активизируйте форму и поместите на нее компонент ToolBar, который будет использоваться в качестве основы для размещения кнопок. Дайте новому компоненту имя ToolBar.

С помощью Object TreeView можно осуществлять перенос компонентов с одной панели на другую.

В окне свойств установите свойство AutoSize в значение True. После этого панель инструментов будет автоматически подгонять свои размеры в зависимости от размеров и количества размещенных на ней компонентов.

19. Для добавления кнопки вызовите контекстное меню компонента ToolBar и выберите команду New Button.

Puc. 126. Панель инструментов оказалась в области прокрутки.

Puc. 127. Создание кнопки на панели инструментов с помощью команды New Button контекстного меню.

На панели инструментов появится кнопка, свойства которой будут тут же показаны в окне свойств. Дайте компоненту имя NewToolButton.

По аналогии создайте кнопки с программными идентификаторами OpenToolButton, SaveAsToolButton, CutToolButton, CopyToolButton и PasteToolButton, FontToolButton, HelpToolButton.

20. Главным атрибутом кнопки является значок. Он определяется значением свойства Imagelndex (номер значка в списке Images компонента ToolBar). Установим на кнопках значки (рис. 129), воспользовавшись ранее созданным списком ImageList.

Puc. 128. Создание необходимых кнопок.

Рис. 129. На кнопках панели инструментов появились значки

Выделите на форме компонент ToolBar, перейдите к окну свойств и установите свойству Images значение ImageList.

В реальных задачах требуется вручную указывать номера значков для каждой кнопки с помощью свойства Imagelndex.

21. Кнопка может содержать надпись рядом со значком (рис. 130). Текст надписи устанавливается в свойстве Caption. Сначала он не виден и, чтобы его показать, задайте в компоненте ТооШаг свойству ShowCaptions значение True.

Рис. 130. Кнопки панели инструментов могут содержать надписи (свойство ShowCaptions равно True)

Чтобы надписи находились справа от значков, в окне свойств переключите свойство List в значение True.

Теперь измените надписи на кнопках (свойство Caption), чтобы получить панель инструментов с корректными надписями (рис. 132).

• 22. Далее размеры кнопок сделаем под размеры надписей с помощью свойства AutoSize (рис.133). Чтобы одновременно редактировать свойства компонентов, примените технику группового редактирования компонентов. Выделите щелчком мыши первую кнопку, а затем, удерживая клавишу Shift, выделите щелчками мыши все остальные кнопки. В окне свойств произойдут следующие изменения:
  • • вместо имени активного компонента будет показано общее количество выделенных компонентов;
  • • в списке свойств останутся только общие для выделенных компонентов свойства и события;
  • • свойства и события, которые у выделенных компонентов имеют разные значения, окажутся пустыми.

Puc. 131. Надписи на кнопках располагаются справа от значков (свойство List равно True)

Рис. 132. Кнопкам заданы правильные надписи

Теперь выполните компиляцию и запустите программу (рис. 134).

23. Чтобы придать кнопкам плоский вид, выделите на форме компонент ToolBar и переключите его свойство Flat в значение True (рис. 135).

Рис. 133. Применение техники группового редактирования при установке во всех кнопках свойства AutoSize в значение True

Рис. 134. Программа для просмотра файлов имеет панель инструментов

Рис. 135. Кнопки панели инструментов получили «плоский» вид

24. Важными элементами панели инструментов являются разделительные линии, которые используются для группировки кнопок. Логично отделить группу кнопок (Cut, Copy, Paste) от кнопок Open и Save As. Для этого вызовите контекстное меню панели инструментов и выберите команду New Separator (рис. 136).

Рис. 136. Создание разделительной линии на панели инструментов с помощью команды New Separator контекстного меню

На панель инструментов будет добавлен новый компонент, имеющий вид вертикальной черты. С помощью мыши переместите его (рис. 137) на место между кнопками Save As и Cut.

Рис. 137. Буксировка разделительной линии

Аналогично отделите кнопки Font, Help. Выполните компиляцию и запустите программу (рис. 138).

Рис. 138. Кнопки на панели инструментов внешне сгруппированы

по назначению

25. Кнопки панели инструментов могут работать как переключатели, «залипая» при нажатии. Для того, чтобы кнопка была переключателем, ее свойство Style должно содержать значение tbsCheck. Состояние кнопки (нажата она или нет) определяется значением свойства Down.

Кнопки-переключатели могут работать согласованно, т. е. включение одной из них означает выключение остальных. Сгруппированными считаются расположенные рядом кнопки, у которых свойство Grouped равно значению True и свойство Style равно значению tbsCheck.

Сгруппируйте кнопки Cut, Copy, Paste, установив их свойства Grouped и Style, как показано на рисунке.

Puc. 139. Кнопки Cut, Copy, Paste сгруппированы в трехпозиционный переключатель.

У кнопки Сору установите свойство Down в значение True, предварительно убрав выделение кнопок Cut и Paste (рис. 140).

Puc. 140. Начальное положение трехпозиционного переключателя — Copy.

Выполните компиляцию и запустите программу (рис. 141).

Рис. 141. Кнопки-переключатели в работе

26. Завершая дизайн панели инструментов, сделайте кнопки Save As, Cut, Copy, Paste, Font недоступными, установив у них свойство Enabled в значение False. Эти кнопки будут оставаться недоступными, пока пользователь не откроет какой-нибудь файл.

Puc. 142. Некоторые кнопки на панели инструментов отключены до тех пор, пока пользователь не откроет какой-нибудь файл.

• 27. При нажатии кнопок возникают события OnClick, которые должны обрабатываться точно так же, как и команды меню. Поскольку все события OnClick имеют одинаковый формат для всех компонентов, просто подключите к кнопкам уже существующие обработчики событий.
• 28. Чтобы кнопки становились доступными или недоступными в зависимости от того, открыт файл или нет, откорректируйте метод EnableCommands:

procedure TTextForm. EnableCommands (Enable: Boolean); begin

SaveAsToolButton.Enabled := Enable;

CutToolButton.Enabled := Enable;

CopyToolButton.Enabled := Enable;

PasteToolButton.Enabled := Enable;

FontToolButton.Enabled := Enable; end;

После компиляции и запуска программы вы получите работающую панель инструментов.

Рис. 143. Работающая панель инструментов

29. Помещаем на форму компоненты OpenDialog, SaveDialog, RichEdit (рис. 144).

Рис. 144. Компоненты OpenDialog, SaveDialog, RichEdit

Присвоим соответствующие имена компонентам OpenDialog, SaveDialog, RichEdit и очистим текстовое поле компонента RichEdit (рис. 145).

30. В строке заголовка окна приложения должно отображаться имя файла, открытого в настоящий момент. Приложение будет по вызову команды Open выводить диалог открытия файла, после чего открывать выбранный текстовый (TXT или RTF) файл в компоненте RichEdit и выводить в строку заголовка его имя. Предварительно создайте текстовый файл.

Настройте свойство Filter компонента OpenDialog (рис. 146).

Puc. 145. Компонент RichEdit.

Puc. 146. Свойство Filter компонента OpenDialog.

Вызов команды Open выводит диалог открытия и открывает выбранный файл. Одновременно изменяется заголовок окна приложения. Дополним процедуру TTextForm.OpenMenuItemClick.

procedure TTextForm. OpenMenuItemClick (Sender: TObject); begin

EnableCommands (True); if OpenDialog. Execute then begin

// читаем содержимое файла в поле редактирования RichEdit.Lines.LoadFromFile (OpenDialog.FileName);

// изменяем заголовок окна приложения Caption := 'Текстовый Редактор — '.

+ ExtractFileName (OpenDialog.FileName);

end;

end;

Функция ExtractFileName извлекает из полного пути к файлу имя файла без родительской папки (рис. 147).

Рис. 147. Проверка открытия файла

Аналогично настройте свойство Filter компонента SaveDialog.

31. Переходим к программированию обработчиков событий команды контекстного меню и кнопки на панели. Они обрабатываются так же, как и команды одноименных пунктов главного меню. Поскольку для пункта Орел обработчик уже написан, то его просто нужно связать с пунктом контекстного меню. Это делается очень просто. Активизируйте в дизайнере меню необходимый пункт и выберите в окне свойств вкладку Events. Выберите соответствующий обработчик из раскрывающегося списка события OnClick. В дальнейшем то же самое проделайте с остальными пунктами.

Рис. 148. Обработка событий

Проверьте правильность работы приложения.

• 32. Рассмотрим методы работы с буфером. В большинстве случаев для работы с буфером достаточно всего трех ключевых методов:
  • • CopyToClipboard: копирует выделенный объект в буфер;
  • • CutToClipboard: перемещает выделенный объект в буфер;

• PasteFromClipboard: вставляет содержимое буфера в текущую позицию курсора.

Реализуем функциональность группы команд Edit: Cut, Сору и Paste. Фрагмент текста, выделенный в поле RichEdit, можно будет вырезать/ копировать в буфер и вставлять в текущую позицию курсора.

Вызовем MenuDesigner главного меню, выберем последовательно команды Cut, Copy, Paste, вызовем на вкладке Events обработчик события OnClick. Запрограммируем соответствующие события.

procedure TTextForm. CutMenuItemClick (Sender: TObject); begin

// вырезаем выделенный текст в буфер обмена

RichEdit.CutToClipboard;

RichEdit.SetFocus; // помещаем курсор в RichEdit end;

procedure TTextForm. CopyMenuItemClick (Sender: TObject); begin

// копируем выделенный текст в буфер обмена

RichEdit.CopyToClipBoard;

RichEdit.SetFocus; // помещаем курсор в RichEdit end;

procedure TTextForm. PasteMenuItemClick (Sender: TObject); begin

RichEdit.SetFocus;

// вставляем текст из буфера обмена в текущую позицию курсора

RichEdit.PasteFromClipboard;

RichEdit.SetFocus; // помещаем курсор в RichEdit end;

Вызов метода SetFocus нужен для того, чтобы после завершения операции с буфером вернуть активность полю редактирования (поместить в него курсор). Без этого метода в фокусе осталась бы та кнопка, нажатие на которую запустило данный обработчик, и пользователю пришлось бы дополнительно щелкать мышью на поле RichEdit.

• 33. Переходим к программированию обработчиков событий команды контекстного меню и кнопки на панели. Они обрабатываются так же, как и команды одноименных пунктов главного меню, его нужно связать с пунктом контекстного меню. Активизируйте в дизайнере меню необходимый пункт и выберите в окне свойств вкладку Events. Выберите соответствующий обработчик из раскрывающегося списка события OnClick. В дальнейшем то же самое проделайте с остальными пунктами.
• 34. Чтобы кнопки контексного меню становились доступными или недоступными в зависимости от того, открыт файл или нет, подправьте метод EnableCommands:

procedure TTextForm. EnableCommands (Enable: Boolean); begin

CutPopupItem.Enabled := Enable;

CopyPopupItem.Enabled := Enable;

PastePopupItem.Enabled := Enable;

DeletePopupItem.Enabled := Enable; end;

Проверьте правильность работы приложения.

35. На форме присутствуют команда Font и кнопка на панели Font. Для работы со шрифтами добавим на форму компонент FontDialog (вкладка Dialogs Палитры Компонентов). Присвоим имя FontDialog.

Выберем кнопку Font на панели и вызовем обработчик OnClick (рис. 150).

Рис. 149. Добавление компонента FontDialog

Запрограммируем соответствующее событие:

procedure TTextForm. FontToolButtonClick (Sender: TObject);

begin.

if FontDialog. Execute then RichEdit. Font := FontDialog. Font;

end;

Теперь свяжем обработку события с командой Font. Получилось наоборот, как в предыдущем связывании.

36. На форме присутствуют команды Delete в главном и контекстном меню. Программируем обработчик события аналогично предыдущим случаям (рис. 151).

procedure TTextForm. DeleteMenuItemClick (Sender: TObject);

begin.

EnableCommands (True);

RichEdit.ClearSelection; RichEdit. SetFocus; end;

Puc. 150. Обработчик OnClick кнопки Font.

Puc. 151. Обработчик события команды Delete.

Связываем обработчик с командой контекстного меню (рис. 152).

37. При запуске приложения желательно закрыть текстовое поле, чтобы пользователь для начала работы нажимал кнопку New или выбирал команду New. Поэтому при создании формы скрываем компонент RichEdit с помощью метода Hide. Программируем обработчик события OnCreate для формы.

procedure TTextForm. FormCreate (Sender: TObject); begin

RichEdit.Hide; end;

Puc. 152. Связь обработчика с командой контекстного меню.

38. На форме присутствуют команда New в главном меню и кнопка New. Программируем обработчики события аналогично предыдущим случаям. Но учитываем, что необходимо показать скрытый ранее компонент RichEdit с помощью метода Show и передать фокус в текстовое поле.

Если в процессе работы необходимо создать новый файл, то поле очищается с помощью метода Clear и изменяется заголовок окна приложения.

procedure TTextForm. NewMenuItemClick (Sender: TObject);

begin

// Разрешить команды EnableCommands (True);

// Показать компонент RichEdit RichEdit. Show;

RichEdit.Clear;

RichEdit.SetFocus;

// изменяем заголовок окна приложения Caption := 'Текстовый Редактор';

end;

39. Подкорректируем обработчик открытия файла. Внесем изменения, касающаяся показа ранее скрытого компонента RichEdit.

procedure TTextForm. OpenMenuItemClick (Sender: TObject);

begin

// Открыть файл и разрешить команды EnableCommands (True);

if OpenDialog. Execute then begin.

// Показать компонент Rich Edit RichEdit. Show;

// читаем содержимое файла в поле редактирования RichEdit.Lines.LoadFromFile (OpenDialog.FileName); // изменяем заголовок окна приложения Caption := 'Текстовый Редактор — ' +.

ExtractFileName (OpenDialog.FileName);

end;

end;

Puc. 153. Обработка события изменения заголовка приложения.

Связываем обработчик с кнопкой New (рис. 154).

Puc. 154. Связь обработчика с кнопкой New.

40. На форме присутствуют команда SaveAs в главном меню и кнопка SaveAs. Программируем обработчики события аналогично предыдущим случаям. Не забудьте установить в компоненте SaveDialog параметр ofOverwritePrompt в значение True. Пользователю выдается предупреждение при попытке сохранить файл с именем, которое уже существует.

procedure TTextForm. SaveAsMenuItemClick (Sender: TObject); var.

f: TextFile; // файл fName: String[80]; // имя файла i: integer; begin.

if SaveDialog. Execute then begin.

fName := ExtractFileName (SaveDialog.FileName);

AssignFile (f, fName);

Rewrite (f); // открыть для перезаписи // запись в файл

// сохраняем содержимое поля редактирования в файл

for i := 0 to RichEdit.Lines.Count do // строки нумеруются

// с нуля

writeln (f, RichEdit. Lines[i]);

CloseFile (f); // закрыть файл

MessageDlg ('Данные записаны в файл ', mtlnformation, [mbOk], 0); end;

// изменяем заголовок окна приложения Caption := 'Текстовый Редактор'; end;

Рис. 155. Предупреждение при попытке сохранить файл.

Связываем обработчик с кнопкой SaveAs, как в предыдущих примерах.

41. На форме присутствует команда Close в главном меню. Подправим ранее написанную процедуру закрытия. Добавим диалог для пользователя (рис. 156). При закрытии файла нужно выбрать: сохранять или не сохранять файл. Программируем обработчик события аналогично предыдущим случаям.

procedure TTextForm. CloseMenuItemClick (Sender: TObject); var

k: word; begin

// закрыть файл и запретить команды EnableCommands (False);

k := MessageDlg ('Сохранить файл? ', mtConfirmation, mbYesNoCancel, 0); case k of mrCancel:

У

mrNo:

RichEdit.Clear; mrYes:

SaveAsMenuItemClick (Sender);

end;

end;

Puc. 156. Сообщение о сохранении данных.

42. Не забудем вывести сообщение о программе, используя кнопку About… Через MenuDesigner вызываем команду About… и обрабатываем событие OnClick.

procedure TTextForm. AboutMenuItemClick (Sender: TObject); begin

ShowMessage ('Продукт принадлежит моей компании.' +.

' Прошу соблюдать авторские права');

end;

Рис. 157. Сообщение при нажатии на кнопку About

• 43. Обработку команды и кнопки Help проводить не будем, так как это требует дополнительной теории.
• 44. Желательно изменить иконку у приложения. Сделаем активной форму, выберем свойство Icon. С помощью редактора картинок (рис. 158) загрузим рисунок.

Рис. 158. Редактор картинок

На рис. 159 демонстрируется работа созданной программы.

Puc. 159. Демонстрация работы текстового редактора.