ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Criar CategoryButton - TButtonCategory e [RESOLVIDO]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
ric_rio2
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108

MensagemEnviada: Sáb Ago 17, 2019 6:44 pm    Assunto: Criar CategoryButton - TButtonCategory e [RESOLVIDO] Responder com Citação

Boa noite..
Estou tentando Criar os
CategoryButton - TButtonCategory e TButtonItem
em RUN TIME.. e manipular suas propriedades, mas não estou tendo sucesso..
cheguei ate aqui..

Código:
var
  Categori_Buttons : TCategoryButtons;
   Button_Category  : TButtonCategory;
   Button_Item      : TButtonItem;
begin
  Categori_Buttons:= TCategoryButtons.Create(Fo_Main);
  Categori_Buttons.Parent:= pCategory_Panel;
  Categori_Buttons.Align:= alTop;
  Categori_Buttons.Height:= 100;
  Categori_Buttons.ButtonFlow:= cbfVertical;
  Categori_Buttons.Categories.AddItem(Button_Category,0);
end;


Apesar dessa linha não dar erro
Citação:
Categori_Buttons.Categories.AddItem(Button_Category,0);

Tambem não adiciona o TButtonCategory.
E não consigo colocar o TButtonItem dentro do TButtonCategory
Algum dos senhores saberia com cria-los??? Smile

Boa noite Smile
Lendo esse artigo
http://www.functionx.com/delphi/controls/categorybuttons.htm
Consegui sanar minhas duvidas.
O codigo final que que necessitava ficou assim:

Código:
Var
  A : Integer;
  Categori_Buttons : TCategoryButtons;
  Button_Category  : TButtonCategory;
  Button_Item      : TButtonItem;
begin
  Categori_Buttons:= TCategoryButtons.Create(Fo_Main);
  Categori_Buttons.Parent:= Panel1;
  Categori_Buttons.Align:= alTop;
  Categori_Buttons.Height:= 100;
  Categori_Buttons.ButtonFlow:= cbfVertical;
  Categori_Buttons.ButtonOptions:= [boFullSize,boShowCaptions];
  Categori_Buttons.Height:=  (4 + 1 ) * 25;

  Button_Category:= Categori_Buttons.Categories.Add;
  Button_Category.Caption:= Item_Do_MenuX.Caption;
  Button_Category.Collapsed:= False;


  For A := 0 To Item_Do_MenuX.Count - 1 do
        begin
          Button_Item:= Button_Category.Items.Add;
          Button_item.Caption:= Item_Do_MenuX[A].Caption;
        end;


Achei bem legal utilizar esse componente Smile
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB