TCategoryButtons Problem

[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;