通常我们这样设计:
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;
标签:MyForm,窗口,Screen,融合,Forms,执行,方法,Setup From: https://www.cnblogs.com/usegear/p/17100744.html