学步园

动态添加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;