42 lines
780 B
Plaintext
42 lines
780 B
Plaintext
type VBABase = class
|
|
public
|
|
function Create(Par: tslobj; App: Application; Cre: integer);
|
|
|
|
public
|
|
property Application read ReadApplication;
|
|
property Parent read ReadParent;
|
|
property Creator read ReadCreator;
|
|
function ReadApplication();
|
|
function ReadParent();
|
|
function ReadCreator();
|
|
private
|
|
[weakref]parent_: tslobj;
|
|
[weakref]application_: Application;
|
|
creator_: integer;
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
function VBABase.Create(Par: tslobj; App: Application; Cre: integer);
|
|
begin
|
|
parent_ := Par;
|
|
application_ := App;
|
|
creator_ := Cre;
|
|
end;
|
|
|
|
// properties
|
|
function VBABase.ReadApplication();
|
|
begin
|
|
return application_;
|
|
end;
|
|
|
|
function VBABase.ReadParent();
|
|
begin
|
|
return parent_;
|
|
end;
|
|
|
|
function VBABase.ReadCreator();
|
|
begin
|
|
return creator_;
|
|
end;
|