>>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