GET class
Posted: Tue May 29, 2018 9:10 pm
Hello,
How can I use all the methods of the GET class. I want to do the following:
1. When change the input do something or action
2. When the user hits the Enter key, perform an action.
I have the following function
When the user types a letter in the Getbox, perform a function (like a search for the string that is in the getbox
When the user hits the Enter key perform the OK Button.
I hope that this is possible.
How can I use all the methods of the GET class. I want to do the following:
1. When change the input do something or action
2. When the user hits the Enter key, perform an action.
I have the following function
Code: Select all
FUNCTION RK_Input(clabel, cTitle, cText)
*a personalized input window
LOCAL oDlg, oGet
LOCAL nKey := 0
DEFINE DIALOG oDlg TITLE cTitle SIZE 400, 125
@ 70, 10 SAY clabel OF oDlg SIZE 380, 20
@ 45, 10 GET oGet VAR cText OF oDlg TOOLTIP "tik hier in" SIZE 380, 25
oGet:SetFocus()
oGet:Change(MsgInfo('OK'))
MsgInfo(nKey)
@ 10, 150 BUTTON "Ok" OF oDlg ACTION (cText := oGet:GetText, oDlg:End())
ACTIVATE DIALOG oDlg CENTERED
RETURN cText
When the user hits the Enter key perform the OK Button.
I hope that this is possible.