Программирование в Delphi. Барков И.А - 32 стр.

function NewSubMenu(const ACaption:      Создает новое подменю. Здесь AName — имя объекта, ACaption
string; hCtx: Word; const AName:         — его текст, hCtx — контекст системы помощи.
string; Items: array of TMenuItem):
TMenuItem;
function Newltemfconst ACaption:         Создает новый объект типа TMenuItem. Параметры метода соот-
string; AShortCut: TShortCut;            ветствуют свойствам класса.
AChecked, AEnabled: Boolean; AOn-
Click: TNotifyEvent; hCtx: Word; const
AName: string):
function NewLine: TMenuItem;             Создает новый элемент меню типа разделитель (TMenuItem с
                                         Caption = '-').

       Все функции в случае успешного завершения возвращают указатель на созданный объект.

                                           3.2. Работа с кнопками
        Группа элементов управления-кнопок в VCL велика и разнообразна. Здесь и стандартные кноп-
ки Windows, и популярные в последнее время кнопки с картинками, и специальные кнопки для работы
в модальных формах (диалогах), и даже группы кнопок. Многие из них имеют одинаковые свойства,
которые мы и рассмотрим сначала.
        Основным событием, связанным с нажатием кнопки (любым способом) является:
        (Pb) property OnClick: TNotifyEvent;
        Под "любым способом" здесь подразумевается щелчок мышью, нажатие комбинации клавиши
— акселератора, нажатие  или  (только для некоторых кнопок) или вызов метода Click из
программы.
        Текст кнопки, появляющийся на ее поверхности, определен в свойстве:
        (Pb) property Caption: string;
        Если в составе текста есть амперсанд ('&'), то следующий за ним символ используется в акселе-
раторе, и нажатие комбинации клавиш <АН>+<символ> вызывает нажатие кнопки.
        Водораздел среди кнопок проходит по тому, что именно означает нажатие. Ряд кнопок — TRa-
dioButton, TCheckBox и группа TRadioGroup — предназначен для ввода или переключения фиксиро-
ванных параметров, и программиста более интересует их состояние в некоторый момент времени, чем
сам факт нажатия. Кнопки TButton, TSpinButton и TBitBtn напротив, как правило, своим нажатием
инициируют немедленные действия. Кнопка TSpeedButton может успешно служить для решения обеих
задач.
        Как уже было сказано, нажатие влечет за собой OnClick. Но это не означает, что всегда нужно
писать код для обработки всех нажатий. Например, исключением из этого правила является использо-
вание кнопок в модальных формах.
        Модальная форма, или модальный диалог — специальная разновидность окон Windows (и форм
Delphi), предназначенная для ввода пользователем необходимых программе данных или выбора одного
ответа из нескольких вариантов. Обычно при этом ему предоставляется несколько кнопок, соответ-
ствующих вариантам. Вплоть до получения ответа в модальном диалоге пользователь не может пере-
ключиться на другие окна той же задачи, а в системном модальном диалоге — и на другие задачи. Для
использования в таких случаях предназначены стандартная кнопка Windows TButton и ее младшая се-
стра TBitBtn, отличающаяся только наличием картинки на ее поверхности. При их нажатии значение
свойства ModalResult кнопки передается одноименному свойству формы, где такое изменение означает
вывод формы из модального состояния и ее закрытие:
        (Pb) property ModalResult: TModalResult;
        TModalResult = Low(Integer) ..High(Integer);
        В модальной форме могут быть предусмотрены две специальные кнопки, соответствующие по-
ложительному и отрицательному решениям. Одна из них срабатывает при нажатии на клавиатуре , другая — . Любая кнопка может получить такой статус, установив в True соответственно



                                                    32