dcl_Tree_GetItemLabel 延迟?

77077

引言:在晓东cad上看到一则求助,地址是http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671829

本人试着研究了一下,感觉dcl_Tree_GetItemLabel 似乎有延迟.欢迎大家一起来讨论讨论.
首先看一段代码,点击tree控件时,得到的不是点击的项目,而是上一次的项目.

2. 
   
3. (defun c:TEST_Main_Tree_OnClicked ( / Item Label)
   
4. (setq Item (dcl_Tree_GetSelectedItem TEST_Main_Tree);获取点击项目
   
5.          Label(dcl_Tree_GetItemLabel TEST_Main_Tree Item));获取点击项目的Label
   
6. (dcl_Control_SetText TEST_Main_TextBox1 Label);显示点击项目的 Label   
   
7. )
   

<br /> (defun c:TEST_Main_Tree_OnClicked ( / Item Label)<br /> (setq Item (dcl_Tree_GetSelectedItem TEST_Main_Tree);获取点击项目<br />          Label(dcl_Tree_GetItemLabel TEST_Main_Tree Item));获取点击项目的Label<br /> (dcl_Control_SetText TEST_Main_TextBox1 Label);显示点击项目的 Label   <br /> )<br />

然后,咱经过修改调整后,可以获得本次点击的项目.

2. 
   
3. ;本人是个新手,写出来的代码不规范,仅供参考,请高手们优化下.
   
4. (defun c:TEST_Main_Tree_OnClicked ( / Item Label)
   
5. (setq Item (dcl_Tree_GetSelectedItem TEST_Main_Tree);获取点击项目  
   
6.          Label(dcl_Tree_GetItemLabel TEST_Main_Tree Item));获取点击项目的 Label   
   
7. )
   
8. (defun c:TEST_Main_Tree_OnSelChanged (Label  Key /)
   
9.      (dcl_Control_SetText TEST_Main_TextBox1 Label);显示点击项目的 Label   
   
10. )
    

<br /> ;本人是个新手,写出来的代码不规范,仅供参考,请高手们优化下.<br /> (defun c:TEST_Main_Tree_OnClicked ( / Item Label)<br /> (setq Item (dcl_Tree_GetSelectedItem TEST_Main_Tree);获取点击项目  <br />          Label(dcl_Tree_GetItemLabel TEST_Main_Tree Item));获取点击项目的 Label   <br /> )<br /> (defun c:TEST_Main_Tree_OnSelChanged (Label  Key /)<br />      (dcl_Control_SetText TEST_Main_TextBox1 Label);显示点击项目的 Label    <br /> )<br />

第一串代码为何现实出来的还是上一次点击项目的Label?
个人认为点击的同时,选中项的Item已经发生改变.

77077

求高手指点下,第一串代码错在哪里?