首页 > 其他分享 >d融合窗口之后的,如何执行该窗口方法

d融合窗口之后的,如何执行该窗口方法

时间:2023-02-08 10:12:43浏览次数:50  
标签:MyForm 窗口 Screen 融合 Forms 执行 方法 Setup

通常我们这样设计:

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

相关文章