TCategoryButtons Problem

[Rastaman]

Hallo. Ich hab ein Problem mit den Categorybuttons.
Und zwar möchte ich, dass immer nur eine Kategorie aufgeklappt ist und es nicht möglich ist, mehrere aufzuklappen.
Wenn man jetzt eine nicht geöfnete auswählt, soll sich die aktuell geöffnete schließen.
Ich habs schon mit IF Abfrage bei "onCategoryCollapse" probiert, aber da kam ein Stacküberlauf. KA wieso. Hoffe ihr könnt mir helfen.

[Meflin]

Zitat von Gerrit89:

Ich habs schon mit IF Abfrage bei "onCategoryCollapse" probiert, aber da kam ein Stacküberlauf. KA wieso. Hoffe ihr könnt mir helfen.

Code könnte helfen, da Kristallkugeln sehr teuer geworden sind, und meine ist zerbrochen

[Rastaman]

Naja und der Witz is auch ausgelutscht
Auf jeden Fall hatte ich danach nich gespeichert aber so ähnlich hats ausgesehn.

Delphi-Quellcode:

procedure TfrmMain.ctbMainCategoryCollapase(Sender: TObject;
  const Category: TButtonCategory);
begin

  If Category.Caption = 'kategorie 1' then
  begin

    ctbMain.Categories[0].Collapsed := False;
    ctbMain.Categories[1].Collapsed := True;
    ctbMain.Categories[2].Collapsed := True;
    ctbMain.Categories[3].Collapsed := True;

  end;

  If Category.Caption = 'kategorie 2' then
  begin

    ctbMain.Categories[0].Collapsed := True;
    ctbMain.Categories[1].Collapsed := False;
    ctbMain.Categories[2].Collapsed := True;
    ctbMain.Categories[3].Collapsed := True;

  end;

  If Category.Caption = 'kategorie 3' then
  begin

    ctbMain.Categories[0].Collapsed := True;
    ctbMain.Categories[1].Collapsed := True;
    ctbMain.Categories[2].Collapsed := False;
    ctbMain.Categories[3].Collapsed := True;

  end;

  If Category.Caption = 'kategorie 4' then
  begin

    ctbMain.Categories[0].Collapsed := True;
    ctbMain.Categories[1].Collapsed := True;
    ctbMain.Categories[2].Collapsed := True;
    ctbMain.Categories[3].Collapsed := False;

  end;

end;

[alcaeus]

Hallo Gerrit,

ich denke mal dass ein Setzen von Collapsed nochmals das Ereignis ausloest.
Setze die EventVariable (onCategoryCollapse) auf nil, und am Ende der Routine wieder auf deine Funktion. Das sollte helfen.

Greetz
alcaeus

[Rastaman]

  ctbMain.OnCategoryCollapase := ctbMainCategoryCollapase; Am anfang wirds halt auf nil gesetzt.
Aber es scheint nich ganz zu klappen, denn wenn ich was ändere schließt sich nichts anderes.
Hab ich die Prozedur falsch aufgerufen oder so?

//EDIT : ES KLAPPT !! Hab nur vergessen die Captions richtig zu setzen