DxRibbon - em tempo de excução

Delphi

02/10/2013

Estou tentando criar um Menu Ribbon utilizando o componente da devexpress (dxRibbon) em tempo de execução alguém tem alguma idéia? Sei como fazer no Ribbon compontente do Delphi 2010 em diante..
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

Marco Aurelio

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

02/10/2013

Você quer criar o que tanto?

                

                
GOSTEI 0

             

             

                 

                     

                          Marco Aurelio
                          
Marco Aurelio

                     

                     
 02/10/2013

                 

                

                    Criar um tab, dentro do mesmo um grupo e botões dentro do grupo.

Para depois poder criar automaticamente via banco ou arquivo de configuração.


                

                
GOSTEI 0

             

             

                 

                     

                          Joel Rodrigues
                          
Joel Rodrigues

                     

                     
 02/10/2013

                 

                

                    Vamos lá. O seguinte esquema funcionou aqui: 


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

             

             

                 

                     

                          Marco Aurelio
                          
Marco Aurelio

                     

                     
 02/10/2013

                 

                

                    Joel, 

    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

             

             

                 

                     

                          Joel Rodrigues
                          
Joel Rodrigues

                     

                     
 02/10/2013

                 

                

                    Show de bola, que bom que conseguiu. No meu caso a toolbar já estava visível, por isso essa linha não foi necessária.

Estou concluindo o tópico então. 

Abraço.
                

                
GOSTEI 0

             

             

        

            POSTAR