如保把被继承体窗的变量值传给继承子窗体的值 。

Question

如题：
我有一个
 Tformwork = class(TForm)
  ....
  public
    LoginInfo: TLogInfo;Tformwork.Create(AOwner: TComponent; info: TLogInfo);
var
  i:integer;
begin
  Inherited Create(Application);
  LoginInfo := Info;
end;继承子窗体
--
TfrmBOMS01 = class(Tformwork)
....procedure TfrmBOMS01.FormCreate(Sender: TObject);
begin
  我想引用 Tformwork 中LoginInfo 的值该如何中处理。
end;

Answer 1

procedure TfrmBOMS01.FormCreate(Sender: TObject);
begin
//  我想引用 Tformwork 中LoginInfo 的值该如何中处理。
  self.LoginInfo ...............
end;