#### 3.8.3 Написание программного кода для панели инструментов.

Сначала мы два раза щёлкнем на кнопке SpeedButton1, а в обработчике щелчка на этой кнопке мы будем ссылаться на метод выбора в главном меню пункта «Файл» - «Новый», для этого мы введём следующий текст:

N2Click (Sender);

Список остального кода с название компонента, для которого он приведен в таблице.

Имя компонента | Код в обработчике щелчка на этой кнопке
--- | ---
SpeedButton2 | N3Click(Sender);
SpeedButton3 | N7CLick(SEnder);
SpeedButton4 | N5Click(Sender);
SpeedButton5 | N16Click(Sender);
SpeedButton6 | N17Click(Sender);
SpeedButton7 | N18Click(Sender);
SpeedButton8 | N14Click(Sender);
SpeedButton9 | N21Click(Sender);
SpeedButton10 | N22Click(Sender);

А теперь можно запустить программу. После нажатия на кнопку должен (должно) создаваться новое (новый) файл (окно), после нажатия на кнопку - открываться файл. После нажатия кнопки должен сохраняться файл, после нажатия кнопки , (при условии, что открыто несколько окно, и они «раскиданы» по рабочей области программы), окна встанут в исходное положение. После нажатия кнопки (и при условии, что в редакторе есть выделенный отрывок текста) выделенный отрывок текста будет вырезаться в буфер обмена, при нажатии кнопки - вставляться, а при нажатии кнопки , выделенный отрывок текста останется в редакторе, но в буфере обмена будет этот отрывок текста. После нажатия кнопки будет вызываться окно «о программе», после нажатия кнопки - будет вызываться диалог поиска, а после нажатия кнопки - диалог замены.

Теперь надо написать код для вызова панели инструментов «шрифт», для этого мы сначала щёлкнем на панели инструментов Toolbar2, и в свойство Visible значение False, тем самым, скрыв панель инструментов в работающей программе, а затем щёлкнем на кнопке и в редакторе кода надо ввести следующий код:

Form2.SpeedButton17.Down:=true;

// «Вдавливание» этой кнопки

Form2.ToolBar2.Visible:=true;

// Отображение второй панели инструментов

.

А теперь давайте напишем код для команд форматирования, сначала щёлкнем на форме, на кнопке SpeedButton12, и в редакторе кода введём следующий код:

With Form4.RichEdit1.SelAttributes do

//Установка, что эти настройки для выделенного текста в редакторе ввода.

Begin

Style:=[fsBold];

// Установление стилем выделенного текста полужирное начертание этого

//текста

end;

А теперь два раза щёлкнем на кнопке SpeedButton13, и введём туда следующий код:

With Form4.RichEdit1.SelAttributes do

//Установка, что эти настройки для выделенного текста в редакторе ввода.

Begin

Style:=[fsItalic];

// Установление стилем выделенного текста полужирное начертание этого

//текста

end;

Теперь мы переключимся на форму, щёлкнем на кнопке SpeedButton14, и введём следующий код:

With Form4.RichEdit1.SelAttributes do

//Установка, что эти настройки для выделенного текста в редакторе ввода.

Begin

Style:=[fsUnderline];

// Установление стилем выделенного текста полужирное начертание этого

//текста

end;

После этого можно запустить программу. Мы введём слово «корпорация:», этот текст мы выделим, нажмём на кнопку bold и нажмём на кнопки italic и underline

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