ric_rio2 Aprendiz


Registrado: Segunda-Feira, 1 de Outubro de 2018 Mensagens: 108
|
Enviada: Sáb Ago 17, 2019 6:44 pm Assunto: Criar CategoryButton - TButtonCategory e [RESOLVIDO] |
|
|
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???
Boa noite
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  |
|