如保把被继承体窗的变量值传给继承子窗体的值 。该怎么处理
如保把被继承体窗的变量值传给继承子窗体的值 。
如题:
我有一个
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;
------解决方案--------------------
procedure TfrmBOMS01.FormCreate(Sender: TObject);
begin
// 我想引用 Tformwork 中LoginInfo 的值该如何中处理。
self.LoginInfo ...............
end;
如题:
我有一个
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;
------解决方案--------------------
procedure TfrmBOMS01.FormCreate(Sender: TObject);
begin
// 我想引用 Tformwork 中LoginInfo 的值该如何中处理。
self.LoginInfo ...............
end;