// кнопку «відкрити» на панелі інструментів
SpeedButton1->OnClick = Open;
// кнопку «зберегти» на панелі інструментів
SpeedButton2->OnClick = Save;
}
Механізм команди «Новий» меню «Файл» простий: визначити ім’я файлу пустим значенням і очистити компонент RichEdit1:
void __fastcall TForm1::New(TObject *Sender)
{
fileName = "";
RichEdit1->Lines->Clear();
}
Команда меню «Довідка» реалізує виклик довідкової інформації про програму шляхом функції ShowMessage():
void __fastcall TForm1::About(TObject *Sender)
{
// виводимо довідкову інформацію про програму
ShowMessage("Текстовий редактор v.1");
}
Пункт меню «Параметри/Перенос слів» реалізує увімкнення/вимкнення переносу слів у редакторі шляхом модифікації властивості WordWrap у компонента RichEdit1:
void __fastcall TForm1::WordWrap(TObject *Sender)
{
// вмикаємо/вимикаємо перенос слів
RichEdit1->WordWrap = ! RichEdit1->WordWrap;
// ставимо/прибираємо галочку біля пункту меню
N8->Checked = ! N8->Checked;
}
Вихід із програми (пункт меню Файл/Вихід) реалізується із перевіркою на наявність модифікації в тексті редактора і при наявності таких: пропонує зберегти зміни.
void __fastcall TForm1::Exit(TObject *Sender)
{
// закриваємо форму
Form1->Close();
}