如何在窗体代码中调用其它窗体

atiger

窗体之间调用分为两种情况：
       
1、两个窗体在同一Assembly（如业务功能）中，假设在“主窗体”中调用“子窗体”

2、两个窗体在不同的Assembly（如不同业务功能间）中：假设“功能A的窗体”调用“功能B的窗体”

atiger

var
  lForm: TZCT;
begin
  lForm := TZCT.Create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
  end;
end;

atiger

两个窗体在不同的Assembly（如不同业务功能间）中：假设“窗体间调用主调功能”中调用“窗体间调用被调功能”（ CTJDYCYWGN）的“主窗体”（TMainForm），先需要在“窗体间调用主调功能”中引用“窗体间调用被调功能”，然后代码如下：

var
  lMailForm: CTJDYCYWGN.TMainForm;
begin
  lMailForm := CTJDYCYWGN.TMainForm.Create(self.Context);
  try
    lMailForm.ShowModal;
  finally
    lMailForm.Free;
  end;
end;