How can I make this behavior?
Best regards,
Iñaki
--
Off topic:
Sybase has been reviewing NNTP availability and is looking at
alternative ways to build a user community. As a test-bed /
proof-of-concept, I have personally created a community on Ning
(http://powerbuilder.ning.com). While Ning certainly doesn't offer all
of the features that I'd like to see Sybase eventually implement, I am
trying to foster some community involvement on that site. Several of the
TeamSybase members have joined already and are available to answer
questions there.
Please sign up; give it a try. My hope is that it evolves into more than
just a Q&A database, but it won't get there without your participation.
I have using this code since ages. This also deactivates the pagedown
and pageup keys - important if your DataWindow is of the freefrom type
// Create a userevent called 'keypressed' in the same or base
datawindow object
//user event - activated thru pbm_dwnkey
Choose Case Key
Case KeyPageUp!, KeyPageDown!
This.acceptText() //do nothing
Return 1
Case KeyTab!
//if the scrollvalue is changed - return to original
This.SetRedraw(FALSE)
This.Post Function ScrolltoRow(This.GetRow())
This.Post Function SetRedraw(True)
Case KeySpaceBar!, KeyDelete!, KeyBack!, KeyHome!, KeyEnd!, &
KeyLeftArrow!, KeyRightArrow!, Key5!, KeyEnter!,KeyDownArrow!,
KeyUpArrow!
// CASE eLSE
// I used to use these for other functions but now most of that has
been shifted to the editchanged event -
End Choose