delphi 如何禁用菜单。。。急

Question

只能这样禁用：
procedure TForm1.Button1Click(Sender: TObject);
begin
   sd1.Enabled:=false;
end;我需要的是一个匿名登陆。。登陆时会禁用有部分菜单。但是上述方法只能是点击后禁用。
 有没有办法在form2初始化是就禁用他

Answer 1

在formCreat中加禁用:
if user <> 'ddf' then
sd1.Enabled:=false;

Answer 2

禁用,那你就将其visible=false这样让其看不到不可以吗

Answer 3

由于sql需要  才学delphi 2天。。
  能不能讲清楚点谢谢

Answer 4

谢谢。这个我知道  但是我要加个判断语句。如果是admin登陆的话菜单不禁用。匿名登陆菜单禁用

Answer 5

你把屬性.visiable=false不就行了

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
begin
  sd1.Enabled:=false;
end; 登录窗体后，先设定其为不可用