如何连接动态显示图片? (280分)

  • 主题发起人 主题发起人 139
  • 开始时间 开始时间
1

139

Unregistered / Unconfirmed
GUEST, unregistred user!
如何连接动态显示图片?
例如:
在本网页内(该页面内),表格两个:一个是字符连接,另一个是显示图片(静态图片)。
当鼠标移到字符连接上时,静态图片显示另一张图片;
当鼠标离开字符连接上时,另一张图片显示静态图片。
要Script完成。(分不够再加)
结果正确满分给您!谢谢!!!
<table width="568">
<tr>
<td width="144">显示图片</td>
<td width="412">文字连接</td>
</tr>
<tr>
<td><img src="Image.gif" width="50" height="40"></td>
<td><a href="index.htm">鼠标移到连接上显示另一张图片</a></td>
</tr>
</table>

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2385227
 
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr;
for(i=0;a&amp;&amp;i<a.length&amp;&amp;(x=a)&amp;&amp;x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document;
if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments;
for(i=0;
i<a.length;
i++)
if (a.indexOf("#")!=0){ d.MM_p[j]=new Image;
d.MM_p[j++].src=a;}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x;
if(!d) d=document;
if((p=n.indexOf("?"))>0&amp;&amp;parent.frames.length) {
d=parent.frames[n.substring(p+1)].document;
n=n.substring(0,p);}
if(!(x=d[n])&amp;&amp;d.all) x=d.all[n];
for (i=0;!x&amp;&amp;i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&amp;&amp;d.layers&amp;&amp;i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x &amp;&amp;
d.getElementById) x=d.getElementById(n);
return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments;
document.MM_sr=new Array;
for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x;
if(!x.oSrc) x.oSrc=x.src;
x.src=a[i+2];}
}
//-->
</script>
<table width="568">
<tr>
<td width="144">显示图片</td>
<td width="412">文字连接</td>
</tr>
<tr>
<td><img src="Image.gif" width="50" height="40" name="f200"></td>
<td><a href="index.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('f200','','Image/sign015.gif',1)">鼠标移到连接上显示另一张图片</a></td>
</tr>
</table>

 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部