42 lines
834 B
Plaintext
42 lines
834 B
Plaintext
type VBABase = class
|
|
public
|
|
function Create(_parent: tslobj; _application: Application; _creator: 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(_parent: tslobj; _application: Application; _creator: integer);
|
|
begin
|
|
parent_ := _parent;
|
|
application_ := _application;
|
|
creator_ := _creator;
|
|
end;
|
|
|
|
// properties
|
|
function VBABase.ReadApplication();
|
|
begin
|
|
return application_;
|
|
end;
|
|
|
|
function VBABase.ReadParent();
|
|
begin
|
|
return parent_;
|
|
end;
|
|
|
|
function VBABase.ReadCreator();
|
|
begin
|
|
return creator_;
|
|
end;
|