怎么用DevExpress的dxBarManager动态创建按钮Button与事件OnClick

动态添加Button

procedure TForm1.Button1Click(Sender: TObject);
var
NewItemLink: TdxBarItemLink;
kk: TdxBarSubItem;
MyBtn: TdxBarButton;
begin
MyBtn := TdxBarButton.Create(Self);
MyBtn.Caption := '通过程序放上去的';
//MyBtn.ImageIndex:= 1;
NewItemLink := MyBtn.BarManager.Bars[0].ItemLinks.Add;
// NewItemLink := dxBarSubItem1.ItemLinks.Add;
NewItemLink.Item := MyBtn;

MyBtn.OnClick:= YouBtnOnClick; //动态添加Button的Onclick单击事件

kk := TdxBarSubItem.Create(Self);
kk.Caption := '又放上去一个东西';
// NewItemLink := dxBarSubItem1.ItemLinks.Add;
NewItemLink.Item := kk;
NewItemLink := kk.ItemLinks.Add;
NewItemLink.Item := MyBtn;
end;

动态添加Button的Onclick单击事件

procedure TForm1.YouBtnOnClick(Sender: TObject);
begin
ShowMessage((Sender as TdxBarButton).Caption);
end;