代码如下:procedureDisableContrlOL(constcArray:arrayofstring;ReEnable:boolean=False);//canbecalledfromVKP/RAW/GenerationclicksvarAComponent:TComponent;CompListDis,CompListEna:TStringList;beginCompListDis:=TStringList.Create;CompListEna:=TStringList.Create;fori:=Low(cArray)toHigh(cArray)dobeginACompon