控件动态操作 ( 积分: 100 )

  • 主题发起人 主题发起人 wangpinggang
  • 开始时间 开始时间
W

wangpinggang

Unregistered / Unconfirmed
GUEST, unregistred user!
在用 Delphi2005 开发 .net 网页时，怎样动态添加控件，
添加后,如何通过鼠标来拖动,并在不要时通过鼠标右击动态
删除控件．
 
在用 Delphi2005 开发 .net 网页时，怎样动态添加控件，
添加后,如何通过鼠标来拖动,并在不要时通过鼠标右击动态
删除控件．
 
不怎么懂，个人看法：
不管用什么语言开发，asp,php_ 最后的结果都是html，而在html里面其实是不能任意拖动元素的，解决的办法就是用层，只有在层上面才上可以绝对定位的，<div>或者</span>
动态控件和动态删除都是通过js来实现innerhtml outerhtml 和remove(这个记不得了)，
不知道2005是不是有什么比较新的地方
--------------------------------
刚刚写了一大堆，怎么也传不上来，重新打一遍，郁闷
 
.net 里可用服务器控件,2005对网页编程象 VB,D7 那样有属性,有事件,
可我好象没有见鼠标拖动事件,不知用JavaScript能否实现
 
其实属于DHTML的范围了，MSDN里面有一个部分全部介绍这个的，下面是网上找的代码，可以参考
有什么问题请到<a href='http://bbs.7dspace.com/index.asp?boardid=2'>论坛</a>中发表<br>
<!-- http://www.7dspace.com -->
<!-- bbs http://bbs.7dspace.com -->
<!--需要2步:
第一步,把下列代码加到<head>区域中-->
<head><style type=&quot;text/css&quot;>
#floater {
position: absolute;
left: 500;
top: 146;
width: 125;
visibility: visible;
z-index: 10;
}</style>
</head>
<!--第二步,把下列代码加到<body>区域中-->
<body>
<div ID=&quot;floater&quot;
style=&quot;left: 590px;
top: 158px&quot;>
<p align=&quot;center&quot;><img SRC=&quot;/files/pic/20050817/20058170220149895.gif&quot;
alt=&quot;欢迎您来到七度空间&quot;
WIDTH=&quot;125&quot;
HEIGHT=&quot;60&quot;><br>
<font color=&quot;#FF8040&quot;>七度空间</font></p>
</div><script LANGUAGE=&quot;JavaScript&quot;>
self.onError=null;
currentX = currentY = 0;
whichIt = null;
lastScrollX = 0;
lastScrollY = 0;
NS = (document.layers) ? 1 : 0;
IE = (document.all) ? 1: 0;
<!-- STALKER CODE -->
function heartBeat() {
if(IE) { diffY =do
cument.body.scrollTop;
diffX =do
cument.body.scrollLeft;
}
if(NS) { diffY = self.pageYOffset;
diffX = self.pageXOffset;
}
if(diffY != lastScrollY) {
percent = .1 * (diffY - lastScrollY);
if(percent > 0) percent = Math.ceil(percent);
else
percent = Math.floor(percent);
if(IE)do
cument.all.floater.style.pixelTop += percent;
if(NS)do
cument.floater.top += percent;
lastScrollY = lastScrollY + percent;
}
if(diffX != lastScrollX) {
percent = .1 * (diffX - lastScrollX);
if(percent > 0) percent = Math.ceil(percent);
else
percent = Math.floor(percent);
if(IE)do
cument.all.floater.style.pixelLeft += percent;
if(NS)do
cument.floater.left += percent;
lastScrollX = lastScrollX + percent;
}
}
<!-- /STALKER CODE -->
<!-- DRAG DROP CODE -->
function checkFocus(x,y) {
stalkerx =do
cument.floater.pageX;
stalkery =do
cument.floater.pageY;
stalkerwidth =do
cument.floater.clip.width;
stalkerheight =do
cument.floater.clip.height;
if( (x > stalkerx &amp;&amp;
x < (stalkerx+stalkerwidth)) &amp;&amp;
(y > stalkery &amp;&amp;
y < (stalkery+stalkerheight))) return true;
else
return false;
}
function grabIt(e) {
if(IE) {
whichIt = event.srcElement;
while (whichIt.id.indexOf(&quot;floater&quot;) == -1) {
whichIt = whichIt.parentElement;
if (whichIt == null) { return true;
}
}
whichIt.style.pixelLeft = whichIt.offsetLeft;
whichIt.style.pixelTop = whichIt.offsetTop;
currentX = (event.clientX +do
cument.body.scrollLeft);
currentY = (event.clientY +do
cument.body.scrollTop);
} else
{
window.captureEvents(Event.MOUSEMOVE);
if(checkFocus (e.pageX,e.pageY)) {
whichIt =do
cument.floater;
StalkerTouchedX = e.pageX-document.floater.pageX;
StalkerTouchedY = e.pageY-document.floater.pageY;
}
}
return true;
}
function moveIt(e) {
if (whichIt == null) { return false;
}
if(IE) {
newX = (event.clientX +do
cument.body.scrollLeft);
newY = (event.clientY +do
cument.body.scrollTop);
distanceX = (newX - currentX);
distanceY = (newY - currentY);
currentX = newX;
currentY = newY;
whichIt.style.pixelLeft += distanceX;
whichIt.style.pixelTop += distanceY;
if(whichIt.style.pixelTop <do
cument.body.scrollTop) whichIt.style.pixelTop =do
cument.body.scrollTop;
if(whichIt.style.pixelLeft <do
cument.body.scrollLeft) whichIt.style.pixelLeft =do
cument.body.scrollLeft;
if(whichIt.style.pixelLeft >do
cument.body.offsetWidth -do
cument.body.scrollLeft - whichIt.style.pixelWidth - 20) whichIt.style.pixelLeft =do
cument.body.offsetWidth - whichIt.style.pixelWidth - 20;
if(whichIt.style.pixelTop >do
cument.body.offsetHeight +do
cument.body.scrollTop - whichIt.style.pixelHeight - 5) whichIt.style.pixelTop =do
cument.body.offsetHeight +do
cument.body.scrollTop - whichIt.style.pixelHeight - 5;
event.returnValue = false;
} else
{
whichIt.moveTo(e.pageX-StalkerTouchedX,e.pageY-StalkerTouchedY);
if(whichIt.left < 0+self.pageXOffset) whichIt.left = 0+self.pageXOffset;
if(whichIt.top < 0+self.pageYOffset) whichIt.top = 0+self.pageYOffset;
if( (whichIt.left + whichIt.clip.width) >= (window.innerWidth+self.pageXOffset-17)) whichIt.left = ((window.innerWidth+self.pageXOffset)-whichIt.clip.width)-17;
if( (whichIt.top + whichIt.clip.height) >= (window.innerHeight+self.pageYOffset-17)) whichIt.top = ((window.innerHeight+self.pageYOffset)-whichIt.clip.height)-17;
return false;
}
return false;
}
function dropIt() {
whichIt = null;
if(NS) window.releaseEvents (Event.MOUSEMOVE);
return true;
}
<!-- DRAG DROP CODE -->
if(NS) {
window.captureEvents(Event.MOUSEUP|Event.MOUSEDOWN);
window.onmousedown = grabIt;
window.onmousemove = moveIt;
window.onmouseup = dropIt;
}
if(IE) {
document.onmousedown = grabIt;
document.onmousemove = moveIt;
document.onmouseup = dropIt;
}
if(NS || IE) action = window.setInterval(&quot;heartBeat()&quot;,1);
</script>
</boyd>
 
非常感谢,我参照用D2005实现如下
procedure TWebForm1.addBtn_Click(sender: System.Object;
e: System.EventArgs);
begin

end;

还是不能用鼠标拖动，只好用坐标实现了，不过有一点，如果我要动态改变 Text 属性，将如何引用创建的控件，用newBtn[0]太麻烦还不好记，用ID怎样实现，况且，单击按钮（服务器控件）已经重刷页面，刚才的动态控件消失。
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
G
动态创建控件,如何调用! (200分)
2
回复
20
查看
307
goodfriend1
G
与
如何取得？(50分)
回复
5
查看
95
与你同行
与
N
利用Database 建立动态数据库例子(50分)
回复
6
查看
150
nhqing
N
G
救救我啊!要如何才能拖动控件呢? (100分)
回复
9
查看
273
goodfriend1
G
后退
顶部