USEGEAR

导航

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;

 

posted on 2023-02-08 10:04  USEGEAR  阅读(26)  评论(0编辑  收藏  举报