EditBox without ENTER (CR) chr when press ENTER

[Italia1]

Hello to everyone!

I have an EditBox (800 chars). When i put ENTER key i don't want chr(13) in EditBox. I must STRTRAN(EditBoxName,chr(13)," ") or there are another method?
I would like when press ENTER key do same action of the tab key (next field in window).
Thank to all!
Bye.

[Pablo César]

Hi italian,

This seems could be useful for you:

Code: Select all

#include "hmg.ch"

Function Main
DEFINE WINDOW Form_1 ;
    AT 0,0 ;
    WIDTH 450 HEIGHT 340 ;
    TITLE 'HMG EditBox Demo' ;
    MAIN
	
	ON KEY RETURN ACTION _SetNextFocus()
	ON KEY ESCAPE ACTION ThisWindow.Release()

    DEFINE STATUSBAR
        STATUSITEM 'HMG Power Ready!' 
    END STATUSBAR

    @ 30,10 EDITBOX Edit_1 ;
        WIDTH 410 ;
        HEIGHT 140 ;
        VALUE 'EditBox!!' ;
        TOOLTIP 'EditBox' ;
        MAXLENGTH 255
        
    DEFINE TEXTBOX Text_1
        ROW    180
        COL    130
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
    END TEXTBOX
	
	DEFINE TEXTBOX Text_2
        ROW    220
        COL    130
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
    END TEXTBOX

END WINDOW
Form_1.Center()
Form_1.Activate()
Return Nil

[Italia1]

Great Pablo César !!

ON KEY RETURN ACTION _SetNextFocus() is the perfect solution!

http://hmgforum.com/hmgdoc/data/onkey.htm

Thanks very very much!

[miszler.zoltan]

Gentlemen!

Thanks for the tips!

Sincerely, Zoltan

[mol]

Works fine, but - if the pressing enter key on BUTTON Control, moves focus to the next control

[Pablo César]

Gentlemen!

Thanks for the tips!

Sincerely, Zoltan

You are welcomed !

---

Works fine, but - if the pressing enter key on BUTTON Control, moves focus to the next control

Yes sure ! This is normal, but this can also be implemented an exception for other types.

Code: Select all

#include "hmg.ch"

Function Main
DEFINE WINDOW Form_1 ;
    AT 0,0 ;
    WIDTH 450 HEIGHT 340 ;
    TITLE 'HMG EditBox Demo' ;
    MAIN
	
	ON KEY RETURN ACTION OnlyForEditBox()
	ON KEY ESCAPE ACTION ThisWindow.Release()

    DEFINE STATUSBAR
        STATUSITEM 'HMG Power Ready!' 
    END STATUSBAR

    @ 30,10 EDITBOX Edit_1 ;
        WIDTH 410 ;
        HEIGHT 140 ;
        VALUE 'EditBox!!' ;
        TOOLTIP 'EditBox' ;
        MAXLENGTH 255
        
    DEFINE TEXTBOX Text_1
        ROW    180
        COL    130
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
    END TEXTBOX
	
	DEFINE TEXTBOX Text_2
        ROW    220
        COL    130
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
    END TEXTBOX

END WINDOW
Form_1.Center()
Form_1.Activate()
Return Nil

Function OnlyForEditBox()
Local cContType := GetFocusedControlType()

If cContType == "EDIT"
   _SetNextFocus()
Else
   DoMethod("Form_1","Edit_1","SetFocus")
Endif
Return Nil

And if you do not want to back to EditBox, remove SetFocus line.