how to disallow cursor from going backwords in a textbox of

[mario]

hi guys,
i have created a textbox, lets call is txtHistory, type=string.
now, when user has clicked inside the text box, i dont want him to be able to move backwords.

the reason i want this so whatever is the previous value is there, it cant be overwritten and he can only add data in addition to the existing data inside the textbox.

Is it possible?

thnx

[ghosttie]

You could make a subclass of TextBox whose keyPress method does this:

Code: Select all

keyPress(textbox: TextBox input; keyCharCode: Integer io) updating, clientExecution; vars begin inheritMethod(textbox, keyCharCode); if keyCharCode = J_key_Back then keyCharCode := 0; endif; end;

Or you could filter it on the form like this:

Code: Select all

keyDown(keyCode: Integer io; shift: Integer) updating; vars begin if keyCode = J_key_Back then keyCode := 0; endif; end;

This option will keep any controls on the form from receiving backspace key presses, so you'd probably have to add some code to only do that if specific controls had focus.

[mario]

thanks and how can i also disable the delete key?

cheers, mario

[mario]

spoke too early...figured it out

many thanks