Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Drag/Drop to a form
Message
From
03/11/2000 11:47:11
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
03/11/2000 11:37:31
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00436677
Message ID:
00437710
Views:
17
>>
>>In each of your control's super classes (i.e., the one-off native base classes you created and are subclassing from), call up to the parent's DragDrop() event.
>>e.g.
LPARAMETERS oSource, nXCoord, nYCoord
>>
>>IF PEMSTATUS(this.Parent, "DragDrop", 5)
>>  this.parent.DragDrop(oSource, nXCoord, nYCoord)
>>ENDIF
Then you can put the desired code in just your form or page or container, and not have to worry about moving objects around in the ZOrder.
>>And you don't have to put the code in each individual object, unless you need that control's DragDrop() to do something special.
>
>This is what I was trying to avoid. I do this already for RightClick - I want to use a form-level method, UNLESS some other control in the heirarchy has a right-click method.
>
>The problem with this is that using PEMSTATUS(...,...,5) in this way (i.e. to answer the question "Does this method contain code?" DOES NOT WORK if you distribute an .EXE that was built without including the source code( turn off the Debug option in Project Info.
>
>But I think that your method is the way to go.
>
>Thanks
>
>Larry

Larry,
Why don't you try what I said once. I tried and it works nicely. No single line of code in other objects. Since what you'd do here is the same with a longer route (first objects get dragdrop and call parent's - vs directly a virtual parent gets dragdrop).
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform