d融合窗口之后的,如何执行该窗口方法
通常我们这样设计:
MyForm :TXXXXForm;
然后
MyForm := TXXXXForm.Create(Self);
如果其他Form调用MyForm方法:
MyForm .mothed;
采用窗口融合方法后,一般不会采用指定变量MyForm了,那么后来的其他单元执行MyForm的方法该怎么办呢?
for I:=0 to Screen.FormCount-1 do begin if not (Screen.Forms[I].ClassNameIs('THospDpt_Setup')) then //找到改窗口 Continue; HospDpt_Setup := THospDpt_Setup(Screen.Forms[I]);//赋值给变量。其他单元通过执行HospDpt_Setup的方法即可。 Break; end;