<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<object classid="CLSID:B34FED13-0203-4260-B311-AF65F4DBCA1C" id="FAL" width="144" height="42" name="FAL"></object>
<script for=FAL event="Answer(ans)">
Display("tData","Answer:"+ans);
</script>
<body>
<INPUT id=say type=submit value="say something" onClick="say()" style="position:absolute; left:160px; top:8px; width:150px; height:42px; ; ; text-align: left ; font-family:'Arial'; font-size: 13px; color:#000000; font-style:normal; font-weight:normal; text-decoration:none" >
<textarea id=tData type=text value="" style="position:absolute; left:5px; top:80px; width:310px; height:230px; ; ; text-align: left ; font-family:'Arial'; font-size: 13px; color:#000000; font-style:normal; font-weight:normal; text-decoration:none">
</textarea>
</body>
<script>
var FAL=document.getElementById("FAL");
function say()
{
FAL.SayWhatYouSay("Hello World!");
return 0;
}
function Display(id,msg)
{
var temp = document.getElementById(id).value;
if(temp!="")
document.getElementById(id).innerText=temp + msg+"\n";
else
document.getElementById(id).innerText=temp + msg+"\n";
}
</script>
</html>
Delphi Active Form 函数使用和自定义事件
4星 · 超过85%的资源 需积分: 48 197 浏览量
2014-07-31
15:32:14
上传
评论
收藏 621KB ZIP 举报 
ActivexForm.zip （15个子文件） 
FALTest.html 1KB
FirstAl.identcache 147B FirstAl.dproj.local 975B FirstAl_TLB.dcu 9KB UnitForm.dfm 626B FirstAl.ridl 8KB FirstAl.ocx 960KB FirstAl.tlb 8KB FirstAl.res 5KB FirstAl.dpr 310B FirstAl_TLB.pas 12KB FirstAl.dproj 5KB UnitForm.dcu 24KB FirstAl.dll 398KB UnitForm.pas 12KB资源评论
zq_zq_ndcs2017-01-13虽然没什么用处，但还是感谢分享- weixin_385694782017-06-26完全就是DELPHI向导生成的默认代码，没任何用处，低级骗钱术
dongyuan2342016-03-23不错 学会了基本的操作
