可编译但为什么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;
如果改为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;
if not dm1.UserRight.IsRightEnable(dm1.UserRight.UserID,IntToStr(TRzGroupItem(Sender).Tag)) then