【结贴】当前功能下的主窗体如何获取功能代码中的成员对象**

tang_cy

功能代码
type
  TMyFunc = class(TFunc)
  procedure FuncCreate(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}

    P_test : string;

    procedure DoRun; override;

  end;

implementation

procedure TMyFunc.DoRun;
begin
    P_test := 'test';
end;

procedure TMyFunc.FuncCreate(Sender: TObject);
begin
    DoRun;
end;


主窗体代码
type
  TMainForm = class(TForm)
  procedure BizFormCreate(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure TMainForm.BizFormCreate(Sender: TObject);
begin
     //这里怎么获取 TMyFunc下的成员P_test的值
end;

tang_cy

已经解决了,结贴吧

使用
TMyFunc(FuncBroker1.Func).P_test