Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
I don't see a necessary function,
Message
De
20/10/2004 11:54:51
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Visual FoxPro Beta
Titre:
I don't see a necessary function,
Divers
Thread ID:
00953036
Message ID:
00953036
Vues:
60
On VFP9 updated help i see 3 new functions:
SYS(232{5|6|7})
but:
i have not see these expected functions:
SYS(2328,nHwnd) 
* Return the Form/Toolbar object with nHwnd 
* ( if it is the WCLIENTWINDOW HWND of a AS Top form, 
* i expected the form ( window frame ) object )

SYS(2329,nWHANDLE) Return the Form/Toolbar object with nWHANDLE
A workaround for do this is to use BIND+AEVENTS(,1) ?
( but perhaps I am deceived):
* implement SYS(2328,m.nHwnd)

PROCEDURE SYS_2328
   =BINDEVENT(m.nHwnd,nNopeMessage,odelegate,"Getform")
   PRIVATE hWndObject
   =Sendmessage(m.nHwnd,m.nNopeMessage,0,0)
   DOEVENTS
   RETURN m.hWndObject
ENDPROC

PROCEDURE odelegate.Getform
 PRIVATE aWMsg
 AEVENTS(aWMsg,1)
 hWndObject = aWMsg[3]
and 
* A long run for a little result!
Have I to use API API Library Construction for do this simple task ?

At this point, why do not to add a _FORMS() public collection
that accept hwnd like parameters ?
With this i can do:
? _FORMS(GetParent(m.someHwnd)).Caption
? _FORMS(GetAncestor(m.toolbarHwnd)).Caption
I hope that VFPT consider this.

Fabio

Of course, you do not answer to make to me to loop within _ SCREEN.Forms!
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform