Class TActiveScriptSite (unit ScriptSite) |
Inherits from
TComObject
IActiveScriptSite
IActiveScriptSiteWindow
TActiveScriptSite Declaration
function EnableModeless(FEnable: WordBool): HResult;
ActiveX Scripting uses this to get a window handle from our application.
function GetDocVersionString(var VersionString: TBSTR): HResult;
Get a handle to our Automation Object's Type Library
function GetItemInfo(ItemName: WideString; dwReturnMask: DWord;
out UnkItem: IUnknown; out TypeInfo: ITypeInfo): HResult;
No need for us to do anything here.
function GetLCID(var wLCID: TLCID): HResult;
IActiveScriptSite TActiveScriptSite - Protected Implementation
function GetWindow(var Hwnd: THandle): HResult;
IActiveScriptSiteWindow IActiveScriptSite Window Implementation
function OnEnterScript: HResult;
Halt script execution!
function OnLeaveScript: HResult;
function OnScriptError(pAse: IActiveScriptError): HResult;
Alerts us when engine states are changing
function OnScriptTerminate(var VarResult: OleVariant;
var ExcepInfo: TExcepInfo): HResult;
Tell engine that we will accept it's default.
function OnStateChange(ScriptState: LongInt): HResult;
This tells us that the script is completed
function EnableModeless(FEnable: WordBool): HResult;
ActiveX Scripting uses this to get a window handle from our application.
This allows the script engine to display information on the interface, such
as a dialog box.
function GetDocVersionString(var VersionString: TBSTR): HResult;
Get a handle to our Automation Object's Type Library
function GetItemInfo(ItemName: WideString; dwReturnMask: DWord;
out UnkItem: IUnknown; out TypeInfo: ITypeInfo): HResult;
No need for us to do anything here.
function GetLCID(var wLCID: TLCID): HResult;
IActiveScriptSite
TActiveScriptSite - Protected Implementation
function GetWindow(var Hwnd: THandle): HResult;
IActiveScriptSiteWindow
IActiveScriptSite Window Implementation
function OnEnterScript: HResult;
Halt script execution!
function OnLeaveScript: HResult;
function OnScriptError(pAse: IActiveScriptError): HResult;
Alerts us when engine states are changing
function OnScriptTerminate(var VarResult: OleVariant;
var ExcepInfo: TExcepInfo): HResult;
Tell engine that we will accept it's default. ie. not implemented
function OnStateChange(ScriptState: LongInt): HResult;
This tells us that the script is completed