Практическая работа. Кнопка быстрого доступа SpeedButton

Кнопка быстрого доступа SpeedButton.

Кнопка быстрого доступа представлена в Delphi компонентом SpeedButton (страница Additional). Помимо обычного и нажатого состояний, она имеет третье состояние – утопленное, или выбранное (включенное).

Использование быстрых кнопок имеет определенные особенности. Все быстрые кнопки группируются, и каждая такая кнопка должна принадлежать одной из групп. Принадлежность кнопки к группе определяет свойство GroupIndex типа Integer. По умолчанию оно равно 0, т.е. кнопка не входит в группу. Определяя одинаковое значение этому свойству для различных кнопок их можно объединить. При этом все кнопки работают согласованно, т.е. если одна из них выбрана и находится в фиксированном нажатом состоянии, то выбор других автоматически отменяется. Поведение кнопки определяется свойством AllowAllUp: если это свойство имеет значение True, утопленная кнопка отпускается только при нажатии любой другой кнопки, входящей в ту же группу; если False кнопку можно освободить повторным щелчком. Включена быстрая кнопкаили нет, определяет свойство Down типа Boolean.

Создайте приложение. По нажатию на соответствующие кнопки (шрифт, размер, начертание, цвет) появляются кнопки с названиями данных атрибутов, при нажатии на которые будет меняться цвет, размер, начертание и шрифт надписи.

Поместите на форму метку и 20 кнопок Button (переименуйте их соответственно В1-В20). При запуске программы в окне должны быть видны надпись «Delphi5» и кнопки «Шрифт», «Размер», «Начертание» и «Цвет». Поэтому для всех остальных кнопок свойству Visible установите значение False.

Назначьте событие OnClick на кнопку «Шрифт»:

procedure TForm1.B1Click(Sender: TObject);

Дата добавления: 2015-05-09