[求助]3个ODCL控制问题?

lyy

vken7az2p发表于2008-1-3 20:27:00感谢 highflybir 您的解答另想请问有可能取得 textbox 栏位中游标停驻在文字的距离吗?如: textbox 栏位 内有显示 123456789但游标停在文字中 5的位置,有办法取得这位置吗?

使用(- (car (dcl_GetMouseCoords)) (dcl_Control_GetLeft xx_xx_TextBox))来判断应该可以吧！

vken7az2p

lyy 您好:
试过您的方法
但好像不行说~
因为回传得到的是
座标值~
另外请问一下设定 (varname)
,有怎样的用处?

3. (dcl_project_load "ODCL_011.odcl" T)
4. (dcl_FORM_SHOW MSF)
5. (defun c:TBN_OnClicked ( /)
6. (print "1" )
7. (print (dcl_Control_GetLeft V_TBX1))
8. (print "2" )
9. (print (car (dcl_GetMouseCoords)) )
10. (print "3" )
11. (print (- (car (dcl_GetMouseCoords)) (dcl_Control_GetLeft V_TBX1)) )
12. )

(dcl_project_load "ODCL_011.odcl" T) (dcl_FORM_SHOW MSF) (defun c:TBN_OnClicked ( /) (print "1" ) (print (dcl_Control_GetLeft V_TBX1)) (print "2" ) (print (car (dcl_GetMouseCoords)) ) (print "3" ) (print (- (car (dcl_GetMouseCoords)) (dcl_Control_GetLeft V_TBX1)) ) )

返回:
"1"
0
"2"
875.0
"3"
875.0 875.0

lyy

vken7az2p发表于2008-1-5 8:36:00lyy 您好:试过您的方法但好像不行说~因为回传得到的是座标值~另外请问一下设定 (varname) ,有怎样的用处?(dcl_project_load \"ODCL_011.odcl\" T)(dcl_FORM_SHOW MSF)(defun c:TBN_OnClicked (

不好意思把游标看成鼠标了！

游标位置直接用dcl_TextBox_GetSel获得。

设置的(varname)就是控件的名称值。如果为空，名称值则为“ODCL文件名_FORM名称_控件名称”。

haiyunzhou

学习了 非常感谢