如何获取allegro光标实时坐标和附着光标上的对象

86232648

如题.谢谢！

vivienluo

使用axlEnterEvent()函数好像可以。
可以获取当前的事件，比如单击、双击、拖拽等。。。

1. let( (eventMask event, loop)
   
2. eventMask = list( 'PICK 'DBLPICK 'STARTDRAG)
   
3. loop = t
   
4. while( loop
   
5. event = axlEnterEvent(eventMask , nil , nil)
   
6. when(event
   
7. axlUIWPrint(nil "%P" event->xy)
   
8. );end when
   
9. );end while
   
10. );end let
    

复制代码

你可以测试下，可以获取到XY坐标。如果想退出循环，可以通过定义POPUP来指定DONE事件，使LOOP = nil

86232648

vivienluo 发表于 2013-10-11 22:51
使用axlEnterEvent()函数好像可以。
可以获取当前的事件，比如单击、双击、拖拽等。。。你可以测试下，可以 ...

非常感谢！