Visible: Boolean;
Свойство Visible определяет отображение панели.
Допустимые значения:
True. По умолчанию. Панель отображается на ленте инструментов;
False. Панель не отображается на ленте инструментов.
Для выполнения примера предполагается наличие формы с компонентами:
Button. Кнопка с наименованием Button1 для скрытия панели на ленте инструментов;
Ribbon. Компонент с наименованием Ribbon1 для создания ленты инструментов с помощью редактора ленты.
Примечание. При создании компонента будет открыто окно выбора ресурсов. Выберите для компонента пустой объект «Ресурсы», в котором будут храниться графические ресурсы элементов ленты инструментов.
Сформируйте структуру ленты инструментов в редакторе ленты:
Добавьте категорию.
Добавьте три панели.
Добавьте кнопку на вторую панель.
После выполнения действий структура ленты инструментов в редакторе ленты примет вид:
После добавления компонентов форма примет вид:
Добавьте ссылку на системную сборку Forms.
Пример является обработчиком события OnClick для компонента с наименованием Button1.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
If (RibbonPanel2.Visible = True) Then
RibbonPanel2.Visible := False;
Else
RibbonPanel2.Visible := True;
End If;
End Sub Button1OnClick;
В результате выполнения примера при нажатии на кнопку «Button1» будет скрыта вторая панель на ленте инструментов:
При втором нажатии на кнопку «Button1» вторая панель на ленте инструментов будет отображена.
См. также: