Сохраняю здесь, так как может понадобиться в будущем
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
//----------------------Пример программного создания вкладки-------------------- procedure TMainForm.sbMainBottomStatusBarClick(Sender: TObject); var RibbonPage:TRibbonPage; begin RibbonPage:=TRibbonPage.Create(Self); RibbonPage.Parent:=MainRibbon; RibbonPage.Caption:='Новая вкладка Риббона'; MainRibbon.AddTab(RibbonPage); RibbonPage.Show; end; //------------------------------------------------------------------------------ |
Результат
