http://www.delphi2007.net/DelphiVCL/html/delphi_20061220140320248.html
mxOutlookBarPro中,button是通过for语句动态生成的,如何取得当前单击button的标题呢?
动态生成的button如何他们响应他们onclick事件?
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;