delphi主窗体控制子窗体权限

平常不好对每个业务窗体进行如增删改打印等权限控制 在此建一主窗体，主窗体中放增/删/改等按纽，这些按纽调用基类的增/删/改过程,一基类窗体,所有业务窗体派生于基类窗体,增加一组权限变量,这是全局变量,表示当前用户当前对当前业务窗体的权限.每次要打开业务窗体进行某一类操作时,从权限表中取出当前用户当前窗体的权限,基类窗体建立事件中给主窗体的增/删/改/等按纽按取出的权限设置为是否可用.