全部博文(788)
分类:
2009-01-04 16:55:44
动态生成的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;