B
bytepark
Unregistered / Unconfirmed
GUEST, unregistred user!
如何在DHTML实现图片、输入框等的拖动？
B
bytepark
Unregistered / Unconfirmed
GUEST, unregistred user!
在VB中只需要
DHTMLEdit1.ExecCommand DECMD_MAKE_ABSOLUTE,OLECMDEXECOPT_DODEFAULT
就可以了，但是在DELPHI中
DHTMLEdit1.ExecCommand(DECMD_MAKE_ABSOLUTE,OLECMDEXECOPT_DODEFAULT);
却不行，为什么？
DHTMLEdit1.ExecCommand DECMD_MAKE_ABSOLUTE,OLECMDEXECOPT_DODEFAULT
就可以了，但是在DELPHI中
DHTMLEdit1.ExecCommand(DECMD_MAKE_ABSOLUTE,OLECMDEXECOPT_DODEFAULT);
却不行，为什么？
Y
yaoyao
Unregistered / Unconfirmed
GUEST, unregistred user!
不用加任何代码就可以呀
但应注意如果页面上除了一张图片什么都没有的话
这张图片是没办法拖动的
但应注意如果页面上除了一张图片什么都没有的话
这张图片是没办法拖动的
B
BeginDelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
TDHTMLEdit.AbsoluteDropMode:=True;
DHTMLEdit1.ExecCommand(DECMD_MAKE_ABSOLUTE,OLECMDEXECOPT_DODEFAULT);
~~~~~~~~~~~~~~~~
That's OK!
AbsoluteDropMode缺省是False;
DHTMLEdit1.ExecCommand(DECMD_MAKE_ABSOLUTE,OLECMDEXECOPT_DODEFAULT);
~~~~~~~~~~~~~~~~
That's OK!
AbsoluteDropMode缺省是False;
O
oldsheep35
Unregistered / Unconfirmed
GUEST, unregistred user!
vb下不用加任何代码就可以！
为什么Delphi下怎么都不行？
请高手赐教
为什么Delphi下怎么都不行？
请高手赐教
C
chengulv
Unregistered / Unconfirmed
GUEST, unregistred user!
这个什么都可以拖了吧！：P[
]
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style>
<!--
.drag{position:relative;cursor:hand}
-->
</style>
<script language="JavaScript1.2">
<!--
var dragapproved=false
var z,x,y
function move(){
if (event.button==1&&dragapproved){
z.style.pixelLeft=temp1+event.clientX-x
z.style.pixelTop=temp2+event.clientY-y
return false
}
}
function drags(){
if (!document.all)
return
if (event.srcElement.className=="drag"){
dragapproved=true
z=event.srcElement
temp1=z.style.pixelLeft
temp2=z.style.pixelTop
x=event.clientX
y=event.clientY
document.onmousemove=move
}
}
document.onmousedown=drags
document.onmouseup=new Function("dragapproved=false")
//-->
</script>
</head>
<body>
<div class="drag">p这是第二个</div>
<font face="Arial Black" class="drag">文字</font>
</body>
</html>
]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style>
<!--
.drag{position:relative;cursor:hand}
-->
</style>
<script language="JavaScript1.2">
<!--
var dragapproved=false
var z,x,y
function move(){
if (event.button==1&&dragapproved){
z.style.pixelLeft=temp1+event.clientX-x
z.style.pixelTop=temp2+event.clientY-y
return false
}
}
function drags(){
if (!document.all)
return
if (event.srcElement.className=="drag"){
dragapproved=true
z=event.srcElement
temp1=z.style.pixelLeft
temp2=z.style.pixelTop
x=event.clientX
y=event.clientY
document.onmousemove=move
}
}
document.onmousedown=drags
document.onmouseup=new Function("dragapproved=false")
//-->
</script>
</head>
<body>
<div class="drag">p这是第二个</div>
<font face="Arial Black" class="drag">文字</font>
</body>
</html>
F
finalrinoa
Unregistered / Unconfirmed
GUEST, unregistred user!
把那些东西上在一个层上不就可以了
L
liushixiang
Unregistered / Unconfirmed
GUEST, unregistred user!
我也很想知道如何在DHTML实现图片、输入框等的拖动。初学者，只能提前。
F
fion
Unregistered / Unconfirmed
GUEST, unregistred user!
设置TDHTMLEdit控件的AbsoluteDropMode属性为True，在选中图片的状况下，运行DHTMLEdit.ExecCommand(DECMD_MAKE_ABSOLUTE,OLECMDEXECOPT_DODEFAULT)搞定给分。
