## Создание главного меню (продолжение).

В Delphi, мы переключимся на форму, и на ней, в главном меню выберем пункт меню Справка – Справка, и в редакторе кода надо ввести следующий код:

Application.HelpCommand(HELP_CONTENTS, 0);

// Посылка приложению команды для обращения к началу содержимого

//справочной системы

После этого можно запустить программу, в главном меню выбрать пункт меню Справка – справка.

А теперь мы сделаем пункты для работы с буфером обмена. Сначала мы в главном выберем пункт Правка – Вырезать, и ввести в редактор кода следующий код:

Form4.RichEdit1.CutToClipboard;

// Вырезание выделенного фрагмента текста в буфер обмена.

Потом надо в главном меню на форме выбрать пункт Правка – Вставить, и ввести следующий код:

Form4.RichEdit1.PasteFromClipboard;

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

Затем мы опять переключимся на форму, и в спроектированном нами главном меню надо выбрать пункт Правка – Скопировать, и ввести туда следующий код:

Form4.RichEdit1.CopyToClipboard;

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

А затем надо на форме, в главном меню выбрать пункт Правка – выделить все, и в редактор кода надо ввести следующий код:

Form4.RichEdit1.SelectAll;

// выделение всего текста в редакторе кода.

После выполнения всех перечисленных действий надо запустить программу. Сначала надо ввести слово «программа», а затем надо выделить первые четыре буквы этого слова, и в главном меню выбрать пункт Правка – Вырезать. Потом надо в главном меню выбрать пункт «Вставить», в том же разделе.

После этого надо сделать команды для поиска и замены текста в редакторе. Для этого предназначены компоненты TFindDialog и TReplaceDialog . Сначала мы разместим на форме компонент TFindDialog, а затем на форме, в главном меню выберем пункт Правка – Поиск, и введём обработчик, следующий код:

FindDialog1.Execute;

// Вызов диалога поиска файла.

Потом разместим на форме компонент TReplaceDialog. Затем на форме, в главном меню выберем пункт меню Правка – Замена, и затем введем следующий текст:

ReplaceDialog1.Execute;

// вызов диалога замены текста.

После этого можно запустить программу. Потом надо в главном меню программу надо выбрать в главном меню пункт Правка – Поиск, и должен появиться диалог поиска, а по выбору пункта Правка – Замена, должен появляться диалог замены текста.

<<Назад | Далее>>