Drop & Drag in Forms

I can get the drop & Drag feature to work in forms. Does anyone know if it works on the web I cant seem to get it to work?

MaritimerAsked:
Who is Participating?
 
Muhammad Ahmad ImranConnect With a Mentor Database DeveloperCommented:
Hi Meritimer,

Place some items(like buttons ) on a form and put the following codes at form level triggers:

(1) When-new-form-instance trigger:

DECLARE
D BOOLEAN;
BEGIN
:GLOBAL.D:='FALSE';
END;

(2) When-mouse-down trigger:

DECLARE
I ITEM;
N NUMBER;
BEGIN
:GLOBAL.D:='TRUE';
I:=FIND_ITEM(:SYSTEM.MOUSE_ITEM);
:global.item:=i.id;
EXCEPTION
WHEN OTHERS THEN
MESSAGE('NO ITEM CLICKED');
:GLOBAL.D:='FALSE';
END;

(3) when-mouse-up trigger:

:GLOBAL.D:='FALSE';

(4) when-mouse-move trigger:

declare
i item;
p number;
P1 NUMBER;
begin
if :global.d='TRUE' then
i.id:=to_number(:global.item);
p:=get_item_property(i,x_pos);
set_item_property(i,x_pos,p+:system.mouse_x_pos);
p1:=get_item_property(i,y_pos);
set_item_property(i,y_pos,p1+:system.mouse_y_pos);
else
null;
end if;
end;

After writing the code run the form and select any item on the form click on it and now you can easily drag and drop this item.
These trigger impliment the drag and drop facility.
You can use it at any form.




0
 
MaritimerAuthor Commented:
Found the answer on the oracle site
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.