关于RzGroup Item 被点击问题(50)

  • 主题发起人 主题发起人 photodelphi
  • 开始时间 开始时间
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变有效
 

Similar threads

I
回复
0
查看
608
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部