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;
本文介绍在mxOutlookBarPro中,如何为动态生成的按钮设置响应事件,通过设置Tag属性和OnClick事件,可以获取点击的按钮标题并显示消息。
282

被折叠的 条评论
为什么被折叠?



