动态修改功能的主窗体

atiger

在功能的DoRun 中，通过例如判断参数的值来进行设置，

参考代码如下，
unit BDYGN;

interface

uses
  Business.System, Business.Model;

type
  TBDYGN = class(TFunc)
  private
    {private declarations}
  public
    {public declarations}
   procedure DoRun; override;
  end;

implementation

procedure TBDYGN.DoRun;
begin
  if Length(Parameters)=0 then
    MainFormName := 'MAINFORM'
  else
    MainFormName := 'CT1';
  inherited;
end;

end.