How to oDlg:End() in GET MEMO by press escape?

[dutch]

Dear All,

I would like to :End() Dialog with Escape Key in GET MEMO. This code doesn't work. How can I do it?

Code: Select all  Expand view

  DEFINE DIALOG oDlgs FROM  0, 0 TO 24+200, 390 TITLE 'Test' ;
              PIXEL FONT oFnts

              oDlgs:lHelpIcon := .F.
             
          @  0, 0  GET oGet VAR cPosItem SIZE 195, 102 PIXEL ;
      MEMO OF oDlgs
             
     oGet:bGotFocus  := {|| (oGet:SetPos(0))}      
     oGet:bKeyDown := {||nKey| iif(nKey=VK_ESCAPE, oDlgs:End(), ) }
             
       ACTIVATE DIALOG oDlgs ON INIT (oDlgs:Move( 335,  85 )) NOWAIT RESIZE16


Regards,
Dutch

[Natter]

oGet:nDlgCode:= DLGC_WANTALLKEYS

[Enrico Maria Giordano]

Dear All,

I would like to :End() Dialog with Escape Key in GET MEMO.

You don't need any additional code as that's the default behavior. Ie: you don't need of

Code: Select all  Expand view

oGet:bKeyDown := {||nKey| iif(nKey=VK_ESCAPE, oDlgs:End(), ) }

By the way, there is a little typo in the above code:

Code: Select all  Expand view

{||nKey|

shold be

Code: Select all  Expand view

{|nKey|

EMG

[dutch]

Thanks Enrico,

I saw it.

Regards,
Dutch