javascript中调用delphi函数
以下是test.htm页的内容
首先定义一个插件对象
<object id="Mapupload" name="Mapupload" width="0" height="0" classid="clsid:045FA9B9-B373-4D4C-AE76-128A19A4B6AE">
</object>
<script type="text/javascript">
//此函数打开activexform窗体并为activeform的属性赋值
function loadUploader(){
if(window.ActiveXObject){
try{
document.getElementById("Mapupload").picname='20060531'; //为对象赋值
document.getElementById("Mapupload").open(); //调用对象的open方法
}
catch(e){
}
}
else{
}
}
</script>
<TEXTAREA style="WIDTH: 400px; HEIGHT: 226px" name="" id='Content' rows=20 cols=40></TEXTAREA>
<button name="start" type="button" onclick="loadUploader();"></button>
<!-- script函数 -->
<script Language=Javascript>
function InsertHTML()
{
var UrlStr = document.getElementById("MapUpload").Content;
alert(UrlStr);
}
</script>
<!-- 定义Delphi中访问的OnCall事件对应的Script方法 -->
定义对象的OnInsertHTML事件为activeform的OninsertHTML事件，并触发页面的inserthtml方法
<SCRIPT FOR="Mapupload"
EVENT="OnInsertHTML()"
LANGUAGE="JScript">
<!-- insert script commands -->
InsertHTML();
</SCRIPT>
delphi中仅需在_TLB中声明OninsertHTML事件，Open方法，content属性即可
procedure TFeSendFrmX.open;
begin
hnd := self.handle;
FrmUpLoad := TFrmUpLoad.Create(self);
with FrmUpload do
begin
ShowModal;
相关文档：
这两天上午一直在学习JavaScript，由于总是在看，效果不是很大，也好久没有发表文章了，所以为了更好的学习，把学到的东西记录下来。我学习JavaScript的书是《精通JavaScript+jQuery》，如果大家有更好的书请推荐。
一. 事件的概念
C#中事件的定义：事件类似于异常，� ......
JavaScript 获取事件对象的一个注意点
2009-7-24 上午
- JS/Ajax/AS/Flex
- event
- javascript
平时我们获取事件对象一般写法如下：
function
getEvent
(
event
)
{
return
event
||
window
.
event
// IE:window.event
}
如果没有参数，也� ......
原文地址：http://blog.zenw.org/index/view/id/8
就在刚才，使用GOOGLE查看明天的天气，看到了GOOGLE为纪念《吃豆超人》30周年而更新的《吃豆超人》JavaScript LOGO游戏。很有意思。而且还支持双打（原来的“手气不错”按钮被设置为了双打启动按钮“Insert Coin”）。来试试吧。
如下图
刚刚进入后 ......
Chrome 拥有更快速的JavaScript；
编写如下小程序：
<html>
<script language = "javascript">
var sum = 0;
var start = new Date;
for(var i = 0; i < 1000001; i++){
sum+=i;
}
var stop = new Date;
document.write("从1到1000000的累加结果：" + sum + ";" + "<br/> ......
