可编译但为什么IntToStr(TRzGroup(Sender).Tag)取不到TAG值?
如果改为IntToStr(TRzGroupItem(Sender).Tag)则无法编译,提示没有声明TRzGroupItem,谁能给我提点一下?万分感激呀。代码如下:
procedure Tmainform.RzGroup7Items0Click(Sender: TObject);
begin
  if not dm1.UserRight.IsRightEnable(dm1.UserRight.UserID,IntToStr(TRzGroup(Sender).Tag)) then
  begin
    ShowMessage('对不起,你没有该权限');
    Exit;
  end;
mainform.dxBarButton27Click(mainform)
end;