Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OKL Passing Parameters
Message
 
To
25/06/2001 14:45:39
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00523099
Message ID:
00523168
Views:
10
>>I think it was me not getting yours :)
>>
>>THIS won't work with OKL, however if you change your strategy a bit, you can get it to work... try using the KeyPress event.
>>
>>Something like:
>>
>>
>>object.KeyPress
>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>
>>IF nKeyCode = 28
>>  NODEFAULT
>>  DO HelpForm WITH THIS.Name, THIS.PARENT...
>>ENDIF
>>
>>
>>You might want to just pass THIS to the HelpForm - it saves a bit of rework if you later decide to change which properties of THIS you look at.
>
>Hmmm... So, if I pass THIS, all the properties of the object will be available in the called form? I will still need to have code in the KeyPress of any relevant classes though... No way around it, eh? I was hoping that I could keep from having to maintain new classes and just have it work automatically for everything... :(
>
Another possibility:
OKL F1 DO ShowHelp

ShowHelp:

IF VARTYPE(_SCREEN.ACTIVEFORM.ACTIVECONTROL) = "O"
  DO HelpForm WITH _SCREEN.ACTIVEFORM.ACTIVECONTROL
ENDIF
I guess this is probably easier... I just like to try to stick with OO :)
Brien R. Givens

Brampwood Systems
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform