L llz629 Unregistered / Unconfirmed GUEST, unregistred user! 2006-12-12 #1 用户权限放在一个数组里。<br>ss[0]-ss[9] 一共十个权限。<br>在主菜单控件中有十个子菜单。<br>ss中如果为1，则表示有此权限。<br>为0表示无此权限.<br>如何把所有子菜单编号（从0到9），并让它与ss数组中数据一一对应，<br>让不同的用户进来显示出不同的子菜单。
用户权限放在一个数组里。<br>ss[0]-ss[9] 一共十个权限。<br>在主菜单控件中有十个子菜单。<br>ss中如果为1，则表示有此权限。<br>为0表示无此权限.<br>如何把所有子菜单编号（从0到9），并让它与ss数组中数据一一对应，<br>让不同的用户进来显示出不同的子菜单。
J Johnny_du Unregistered / Unconfirmed GUEST, unregistred user! 2006-12-12 #2 给每个主菜单的子菜单项的Tag值赋值为0~9,在窗体的OnCreate事件中判断菜单项和数组的关系
L llz629 Unregistered / Unconfirmed GUEST, unregistred user! 2006-12-12 #3 我也是想到用tag<br>但是菜单项用什么属性呀。<br>具体写写让我看看。
J Johnny_du Unregistered / Unconfirmed GUEST, unregistred user! 2006-12-12 #4 Form.OnCreate(Sender: TObject);<br>var<br> I,J: Integer;<br>begin<br> for I := 0 to Form.ControlCount - 1 do<br> begin<br> if Form.Controls.ClassNameIs('TMenuItem') then<br> begin<br> J := TMenuItem(Form.Controls.Tag);<br> TMenuItem(Form.Controls).Enabled := ss[J] = 1;<br> end;<br> end; <br>end;
Form.OnCreate(Sender: TObject);<br>var<br> I,J: Integer;<br>begin<br> for I := 0 to Form.ControlCount - 1 do<br> begin<br> if Form.Controls.ClassNameIs('TMenuItem') then<br> begin<br> J := TMenuItem(Form.Controls.Tag);<br> TMenuItem(Form.Controls).Enabled := ss[J] = 1;<br> end;<br> end; <br>end;
L lngdtommy Unregistered / Unconfirmed GUEST, unregistred user! 2006-12-12 #5 procedure TForm1.FormCreate(Sender: TObject);<br>var<br> I,J: Integer;<br>begin<br> for i := 0 to self.ComponentCount-1 do<br> begin<br> if self.Components is TMenuItem then<br> begin<br> J := TMenuItem(self.Components).Tag<br> TMenuItem(self.Components).Enabled := ss[J] = 1;<br> end;<br> end;<br>end;
procedure TForm1.FormCreate(Sender: TObject);<br>var<br> I,J: Integer;<br>begin<br> for i := 0 to self.ComponentCount-1 do<br> begin<br> if self.Components is TMenuItem then<br> begin<br> J := TMenuItem(self.Components).Tag<br> TMenuItem(self.Components).Enabled := ss[J] = 1;<br> end;<br> end;<br>end;
A abin30 Unregistered / Unconfirmed GUEST, unregistred user! 2006-12-12 #6 呵呵，差不多啊，ComponentCount和ControlCount 有何区别，有时候取不到 ComponentCount
