Fórum DxRibbon - em tempo de excução #457281
02/10/2013
0
Tentei fazer algo como conforme codigo abaixo mais não foi muito além de criar uma tab.(page no Ribbon)
var Tab: TdxRibbonTab;
Bar : TdxBar;
Grupo: TdxribbonTabgroup;
Grupos : TdxRibbonTabGroups;
begin
Tab := RibPrincipal.Tabs.Add;
Tab.Caption := 'Clientes e Fornecedores';
Grupos := TdxRibbonTabGroups.Create(TAb);
Grupos.Add;
Marco Aurelio
Curtir tópico
+ 0Posts
02/10/2013
Joel Rodrigues
Gostei + 0
02/10/2013
Marco Aurelio
Para depois poder criar automaticamente via banco ou arquivo de configuração.
Gostei + 0
02/10/2013
Joel Rodrigues
procedure TForm1.FormCreate(Sender: TObject);
var
tab : TdxRibbonTab;
group : TdxRibbonTabGroup;
button : TdxBarButton;
begin
tab := dxRibbon1.Tabs.Add; //Cria a nova aba
group := tab.Groups.Add; //Cria um novo grupo na aba
button := TdxBarButton.Create(Self); //Cria um novo botão (poderia ser outro tipo de controle)
button.OnClick := dxBarButton1Click; //Liga o evento do botão a uma função previamente criada (código abaixo)
button.Caption := 'Primeiro botão'; //Texto do botão
group.ToolBar := dxBarManager1Bar1; // Liga o grupo a uma toolbar já criada no barmanager (poderia criar em runtime também)
dxBarManager1Bar1.ItemLinks.Add.Item := button; //Adiciona o botão à toolbar
end;
procedure TForm1.dxBarButton1Click(Sender: TObject);
begin
ShowMessage('Primeiro botão clicado');
end;
Gostei + 0
02/10/2013
Marco Aurelio
Muitíssimo obrigado. Foi tantas tentativas que talvez tenha chegado próximo ao que você me passou, porque quando compilei o seu código, não exibiu o grupo e botões... e ai depois de um súbito inclui o a linha abaixo.
dxBarManager1Bar1.Visible := true;
Novamente, obrigado.
Gostei + 0
02/10/2013
Joel Rodrigues
Estou concluindo o tópico então.
Abraço.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)