| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 171 人关注过本帖
标题:如何移动控件
只看楼主 加入收藏
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:376
专家分:10
注 册:2014-1-16
结帖率:87.88%
收藏
已结贴  问题点数:20 回复次数:7 
如何移动控件
我建立了一个表单,表单内创建了一个CONTAINER的类,容器类里面放了一个shape,铺满了整个容器,我想要的效果是如果用鼠标可以在让容器表单内四处移动,调整位置,请问怎么弄?
附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 位置 容器 表单 控件 移动 
2020-11-15 20:15
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:376
专家分:10
注 册:2014-1-16
收藏
得分:0 
我要表达的意思是容器类和表单共用一个数据源,同时容器要能移动。但是我发现用表单集好像更能满足我的需求,我没有用过表单集,试着创建了一个,但是我发现不能同时显示2个表单,请问应该怎么处理,就是小表单在大表单内移动,2个表单要同时显示。
2020-11-16 07:37
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:376
专家分:10
注 册:2014-1-16
收藏
得分:0 
问题解决了,就是把需要移动的小表单B  alwaysontop的属性设置为.t.,但是新问题来了,我的大表单A是停靠在主表单的,将大表单A和小表单B并在表单集后,打开大表单时,不能停靠在主表单了,请教如何解决。
2020-11-16 10:06
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:276
帖 子:7620
专家分:34082
注 册:2014-5-20
收藏
得分:20 
就是表单上的控件位置变动吧,拖动或在鼠标移动事件改变控件的位置
2020-11-16 10:30
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:376
专家分:10
注 册:2014-1-16
收藏
得分:0 
对,用表单集后子表单可以随意拖动,但是大表单不能停靠主表单了,请问一个表单集内的表单能停靠在另外的主表单里面吗?就是表单集内的表单1 停靠在表单二,表单二是不在表单集内的

[此贴子已经被作者于2020-11-16 10:46编辑过]

2020-11-16 10:42
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:376
专家分:10
注 册:2014-1-16
收藏
得分:0 
如果能让容器拖动改变位置也行
2020-11-16 10:49
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:276
帖 子:7620
专家分:34082
注 册:2014-5-20
收藏(1)
得分:0 
以下是引用fanjinyu9108在2020-11-16 10:49:33的发言:

如果能让容器拖动改变位置也行

也可以在鼠标事件改变控件改变位置


程序代码:
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as form
    ADD OBJECT con1 as con WITH left=10,top=10
ENDDEFINE

DEFINE CLASS con as Container
    nX = 0
    nY = 0
    PROCEDURE MouseDown(nButton, nShift, nXCoord, nYCoord)
        this.nX = this.left - nXCoord
        this.nY = this.top - nYCoord
    ENDPROC
    PROCEDURE MouseMove(nButton, nShift, nXCoord, nYCoord)
        IF nButton==1
            this.left = this.nX + nXCoord
            this.top = this.nY + nYCoord
        ENDIF
    ENDPROC
ENDDEFINE
附件: 游客没有浏览附件的权限,请 登录注册
2020-11-16 11:42
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:376
专家分:10
注 册:2014-1-16
收藏
得分:0 
非常感谢吹水佬师傅的解答,我决定不用表单集了,太麻烦了
2020-11-16 17:48
快速回复:如何移动控件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.099836 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved