(screen.Forms[i] as TZTGQMJFrm).ZTGQArea := temp;这句报错 在这之前加了个 showmessage(screen.Forms[i].ClassName); classname 正好就是TZTGQMJFrm
TZTGQMJFrm是个窗口类 ZTGQArea是属性 public 字符串类型
temp 是个字符串变量
TZTGQMJFrm是个窗口类 ZTGQArea是属性 public 字符串类型
temp 是个字符串变量
假如TZTGQMJFrm不是動態窗體,可能是你沒uses窗體TZTGQMJFrm的Unit
你这样写写试一下
(screen.Forms[i] as TZTGQMJFrm).ZTGQArea := temp;
试试
TZTGQMJFrm(screen.Forms[i]).ZTGQArea := temp;