核心提示：调用范例：创建：procedure TSomeForm.FormCreate(Sender: TObject);begin// Create our javascript engine// M...
调用范例：
创建：
procedure TSomeForm.FormCreate(Sender: TObject); begin // Create our javascript engine javascript := Tjavascript.Create(Self); // Make this form available to javascript under the name 'Form' FScript.AddScriptlet(CreateComponentScriptlet(Self, 'Form')); // Add hosting support including our Alert and Echo methods FScript.AddScriptlet(CreateHostScriptlet(ScriptAlert, ScriptEcho)); end;
执行：
procedure TSomeForm.ExecuteButtonClick(Sender: TObject); begin javascript.Lines := SourceMemo.Lines; javascript.Execute; end;
迅雷专用高速下载
