mxOutLookBarPro 控件使用问题

Question

我在使用中自定义了按钮,现在不知道怎样触发自定义按钮的事件,有哪位大侠告知一下啦,谢谢!

Answer 1

procedure TMainWindow.MxButtonOnClick(sender: TObject);
begin
  if Sender is TMxButton then
  Showmessage((Sender as TMxButton).Caption);
end;Procedure TMainWindow.ButtonAddClick( Sender: TObject );
var
  Button: TmxButton;
begin
  Button := mxOutlookBarPro.HeaderByIndex( ListBox.ItemIndex ).AddButton;
  Button.Caption := Edit2.Text;  Button.OnClick := MxButtonOnClick;//ONClick事件
end;