السلام عليكم ورحمة الله وبركاته

معليش سؤال ياشباب كيف أنشئ تيكست أيتم يلاحق الماوس

ومشكورين والله يعطيكم العافية

استخدم SYSTEM.MOUSE_X_POS و SYSTEM.MOUSE_Y_POS لتحصل على موقع الكرسور عند حركة الماوس
واستخدم Trigger خاص بالماوس لتعديل موقع الtext item
وهذا الكود شبية بما تريد عمله وهو مأخوذ من Forms Help

/* Trigger:  When-Mouse-Click 

Example:  Dynamically repositions an item if: 
the operator clicks mouse button 2 on an item and             
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; 

ولا ادرى لمذا يظهر الكود السابق من اليمين الى اليسار على عكس المعتاد؟

تم تعديل 14 سبتمبر 200520 سنة بواسطة kash