htmca.tmp

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· TMP 代码 · 共 37 行

TMP
37 行
字号 
<html><head></head>
<script language=Javascript src="/js/IWCommon.js_5.0.43"></script>

<script language=Javascript src="/js/IWExplorer.js_5.0.43"></script>

<script language=Javascript src="/js/IWCSData.js_5.0.43"></script>

<script language=Javascript src="/js/IWCL.js_5.0.43"></script>
<script language=Javascript>
function FormDefaultSubmit() {return false;}
function SubmitClick(objname, param, ADoValidation) {return parent.SubmitClick(objname, param, ADoValidation);}
function rollon(row,where){ 
var tablecolor;
if (where == 'over'){
 currentcolor=document.getElementById(row).style.getAttribute("backgroundColor")
 document.getElementById(row).style.backgroundColor='' 
 }else{ 
 document.getElementById(row).style.setAttribute("backgroundColor",currentcolor) }
}
var IWDBGRID1IWCL;

function Initialize() {
document.body.leftMargin = 0;
document.body.topMargin = 0;
InitRects(440, 731);
IWDBGRID1IWCL = new CreateIWCLObject(IWCLForm, "IWDBGRID1", "IWDBGRID1IWCL");
if (IWDBGRID1IWCL.Item != null) {
 IWDBGRID1IWCL.SetAlign(alRight);
 IWDBGRID1IWCL.SetAnchors(new CreateAnchors(false, true, true, true));
}
}
</script>
<body  OnLoad="Initialize();" OnResize="Body_OnResize();">
<form onsubmit="return FormDefaultSubmit();" style="font: 10pt;">
  <table id="IWDBGRID1" border="1" cellpadding="0" cellspacing="0" width="400"></table>
</form>
</body></html>

htmca.tmp - 源码说明

本页面展示了「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」中的 htmca.tmp 源码文件，采用 TMP 编程语言编写，共 37 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?