Using SYSTEM.MOUSE_ITEM In Oracle Forms

发布时间:2017-6-25 22:04:11 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"Using SYSTEM.MOUSE_ITEM In Oracle Forms ",主要涉及到Using SYSTEM.MOUSE_ITEM In Oracle Forms 方面的内容,对于Using SYSTEM.MOUSE_ITEM In Oracle Forms 感兴趣的同学可以参考一下。

Using SYSTEM.MOUSE_ITEM In Oracle Forms

If the mouse is in an item, SYSTEM.MOUSE_ITEM represents the name of that item as a CHAR value.
For example, if the mouse is in Item1 in Block2, the value for SYSTEM.MOUSE_ITEM is :BLOCK2.ITEM1.

SYSTEM.MOUSE_ITEM is NULL if:
·  the mouse is not in an item
·  the operator presses the left mouse button, then moves the mouse
·  the platform is not a GUI platform

SYSTEM.MOUSE_ITEM examples
/* 
Example: Dynamically repositions an item if:
1) the operator clicks mouse button 2 on an item and
2) the operator subsequently clicks mouse button 2 on an area of the canvas that is not directly on top of another item.
*/
DECLARE
item_to_move VARCHAR(50);
the_button_pressed VARCHAR(50);
target_x_position NUMBER(3);
target_y_position NUMBER(3);
the_button_pressed VARCHAR(1);
BEGIN
/* Get the name of the item that was clicked.
*/
item_to_move := :System.Mouse_Item;
the_button_pressed := :System.Mouse_Button_Pressed;
/*
If the mouse was clicked on an area of a canvas that is not directly on top of another item, move the item to the new mouse location.
*/
IF item_to_move IS NOT NULL AND the_button_pressed = ’2’
THEN
target_x_position := To_Number(:System.Mouse_X_Pos);
target_y_position := To_Number(:System.Mouse_Y_Pos);
Set_Item_Property(item_to_move,position,
target_x_position,target_y_position);
target_x_position := NULL;
target_y_position := NULL;
item_to_move := NULL;
END IF;
END;

See also:
http://www.foxinfotech.in/2015/01/create-xo-checker-game-with-oracle-forms.html

上一篇:WebSocket in ASP.NET Core
下一篇:ls常用参数

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。