hier ich hab dir ma was für die actiontoolbar gebastelt, funktioniert aber nur, wenn du deiner toolbar nen actionmanager zugewiesen hast...
Delphi-Quellcode:
function AddItemToToolBar(eToolBar:TActionToolBar; eCaption:String; eImageIndex:integer):TAction;
var eAction:TAction;
eItem:TActionClientItem;
eActionToolBarIndex:integer;
e:integer;
begin
if not assigned(eToolBar.ActionManager) then exit;
e := etoolbar.ActionClient.Index;
eAction := TAction.Create(eToolBar.ActionManager);
eItem := eToolBar.ActionManager.ActionBars.ActionBars[e].Items.Add;
eItem.Action := eAction;
eAction.Caption := eCaption;
eAction.ImageIndex := eImageIndex;
Result := eAction;
end;