Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I don't see a necessary function,
Message
From
22/10/2004 09:29:10
 
General information
Forum:
Visual FoxPro
Category:
Visual FoxPro Beta
Miscellaneous
Thread ID:
00953036
Message ID:
00953705
Views:
17
Hi Sergey,

of course i have not a VFP9beta revision,
where BINDEVENT(hwnd) it is implemented.

But,
i try to write a guess example:
* i use this
=BINDEVENT(0,WM_CLOSE,m.WinMonitor,"WindowProc")

PROCEDURE WinMonitor.WindowProc
LPARAMETERS hwnd, uMsg, wParam, lParam
 * Here i want call the form object with this hwnd
 STORE HWNDTOOBJ(hwnd) TO oHWnd
 IF ISNULL(m.oHWnd) && expected NULL if hwnd it is not a object
    * not a VFP WINDOW object
    RETURN
 ENDIF
 IF m.uMsg=TrackMsg AND m.oHWnd.Allowtracking && <== !!!
    ....
 ENDIF
ENDPROC
Sergey,
on help it is not written what the SYS(2326,hWnd)
do if hWnd have not a WHANDLE,
I hope it not fire a error but return a NULL
( but I'm sure that it will shoot an error to me,
and i have to fill the Prog with tons of useless TRY/ENDTRY )

Another point,
i have to put forms reference into variours
cursors that support the application structure.
When i read this reference ( a integer) handle i have to found the Form object for call Methods/Property.
Now i use a myFormHandle, with a array/collection obj Reference.

Of course it is the 5th id for a form:
- Name
- hwnd
- WHANDLE
- objectRef ( this is the object casting of WHANDLE )
- myFormHandle

If i can use a HWNDTOOBJ(hwnd) i can release this
collection/array.


>Fabio,
>
>Understand that I don't dispute your request but you still didn't explain why thouse features should be implemented. In what cases they would be usefull? Basicly, you didn't provide "use case" sceanrios.
>
Previous
Reply
Map
View

Click here to load this message in the networking platform