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>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?