mxOutlookBarPro中,button是通过for语句动态生成的,如何取得当前单击button的标题呢?

解决方案 »

  1.   

    动态生成的button如何他们响应他们onclick事件?
      

  2.   

    var
      i: Integer;
      pButton: TmxButton;      pButton:=pHeader.AddButton;
          pButton.Caption := Menus[i].sName;
          pButton.Tag:=i;
          pButton.OnClick:= OnButtonClick;procedure TFMenus.OnButtonClick(Sender: TObject);
    var
      pButton: TmxButton;
      pHeader: TmxHeader;
      iMenuIndex: Integer;
    begin
      pButton:=TmxButton(Sender);
      ShowMessage(pButton.Caption);
    end;