TCategoryButtons

[scriptors]

thanks for replay,
I'm Italian so it's easy to 'read' your language but difficult to write

I read all founded page with google or yahoo about TCategoryButtons without found nothing functional

I know:

 
procedure Form1.SelectCategoryCollapase(Sender: TObject;
  const Category: TButtonCategory);
begin
...
end;

but after too many test i haven't realized one working routine.

The BEST strange things are:
if I make one routine and write, at beginnig, one

Showmessage( {variable.get} ); // just for example
I have one working procedure, if I delete the 'ShowMessage' I have one NOT working procedure and system error

I beginning to think this component have some BUG ... or I have more BUG of it

_________________________

Because I found less example about this component i post some functional example I have found/discovered/realized:

Create Items into Group (I use it into While .. do routine):

var
aButton : TButtonItem;
NPNL : integer;
...
abutton := select.categories[1].items.add; // add button item into TCategoryButtons (called 'select') into categoryGroup n.1
abutton.Caption := 'some text' ; // add TextName of button item
select.Categories[1].items[NPNL].onclick := Gruppo1; // add OnClick property (procedure: Gruppo1) - NPNL is one integer and are incremented into While cycle or somethings you like
------------------

procedure Form1.Gruppo1(Sender: TObject);
var
Pulsante: TButtonItem;
Riga : integer;
begin
...
Riga := 0;
Pulsante := Select.SelectedItem; // select are Name of TCategoryButtons
Riga := Pulsante.Index; // Riga are Item Clicked
...

_________________________