P
photodelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
大家好: 本人用的是Raize.Components.v4.1 套件 通过下面代码动态生成了item procedure TmainFrm.FormShow(Sender: TObject);var iTemp: integer; GMenuItem: TRzGroupItem ;begin for itemp := 1 to RecordCount do begin GMenuItem := RzGroup1.Items.Add; GMenuItem.Caption := FieldValues['测试']; GMenuItem.OnClick := ItemClick; next; end;//这个是item点击事件 procedure TmainFrm.ItemClick(Sender: TObject);var sTemp: string;begin with Sender as TRzGroupItem do begin sTemp := Caption; end; {do other}end;问题:当前Item被点击之后,再次点击无效,当点击了其他item,原来无效的item变有效