Page 1 of 1

ESC, Tab, Sh tab... don´t work under TPage and memos (fixed)

Posted: Thu Nov 10, 2005 11:47 pm
by Maurilio Viana
Antonio,

I use a dialogs with 3 pages (TPages class), in a page I use a memo get, when this memo get focused, the keys Tab, Shift Tab, ESC... don't work properly.
ESC = don't work
Tab and Shift Tab = include a tab space in the text before skip to next/prior control...

Regards,
Maurilio

Posted: Fri Nov 11, 2005 8:45 pm
by Antonio Linares
Maurilio,

Please include these changes in source\classes\mget.prg Method KeyChar:

if nKey == VK_ESCAPE // Windows API already sends it to dialogs!!!
if ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:lModal
return nil
endif
if ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:oWnd != nil .and. ;
::oWnd:oWnd:ChildLevel( TPages() ) != 0
::oWnd:oWnd:oWnd:End()
endif
endif

if nKey == VK_TAB
return Super:KeyChar( nKey, nFlags )
endif