在子窗体中如何对主窗体进行设置？

Question

假如主窗体为form1,在登陆窗体中直接写form1.enabled:=false;
按F9运行,会弹出一个对话框,按yes即可

Answer 1

登录窗体.ShowModal;
if 权限不够 then 主窗体的菜单.Enabled := false
else 主窗体的菜单.Enabled := true;实际运用中，可以在登录窗体设值一个变量T，权限够则设值T=true,否则false;
那么“if 权限不够 then ”可以改为：if T then 
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

在子窗体的implementation下面写一句uses unit1;//unit1是主窗体单元
然后　form1.button.enabled:=false;//form1是主窗体