TCategoryButtons extern Klick simulieren

[hes]

@peterbelow

das hab ich sogar schon vor der Fragestellung hier gemacht, aber mit dem auf und zuklappen ist das so ne Sache. Funktioniert auch bedingt.

Zum Test kann man sich einen Button einbauen, wo man sieht wurde schon was gedrückt. BtnItem.OnClick auslösen geht, aber optisch passiert leider nichts. Aus dem Quellcode der Komponente bin ich noch nicht schlau geworden wo ich ansetzen muss.

procedure TSplitViewForm.Button1Click(Sender: TObject);
var
BtnItem: TButtonItem;
begin
BtnItem := catmenuitems.categories[0].items[1];

if Assigned (catMenuItems.CurrentCategory) then
ShowMessage (catMenuItems.CurrentCategory.CategoryButtons.Sele ctedItem.Caption);
end;