Page 1 of 1
Error when press ALT + XXX
Posted: Fri Nov 11, 2022 9:45 am
by Jimmy
hi,
i got a Error when press ALT + "any Key" using TGrid()
Error description: Error BASE/1004 Message not found: TWINDOW:GETHOTPOS
Args:
[ 1] = O TWINDOW
Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TWINDOW:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TWINDOW:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TWINDOW:GETHOTPOS( 0 )
Called from: .\source\classes\CONTROL.PRG => TGRID:SYSCOMMAND( 1337 )
Called from: .\source\classes\CONTROL.PRG => TGRID:HANDLEEVENT( 1835 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3681 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1114 )
Called from: TGRID.prg => MAIN( 512 )
but i have no "Hotkey" define ...
how can i avoid Error
Re: Error when press ALT + XXX
Posted: Fri Nov 11, 2022 10:06 am
by Antonio Linares
Dear Jimmy,
In you Class TGrid please implement this method:
METHOD GetHotPos() VIRTUAL
Re: Error when press ALT + XXX
Posted: Fri Nov 11, 2022 11:02 am
by Jimmy
hi Antonio,
Antonio Linares wrote:METHOD GetHotPos() VIRTUAL
i have try to include
in my CLASS TGrid() and CLASS
TExplorer() but still get Error ...
---
after disable and reduce used CLASS i got to TControl:HandleEvent() which are SUPER CLASS of TGrid()
i have look for
Code: Select all | Expand
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TControl
...
1834 case nMsg == WM_SYSCOMMAND
1836 return ::SysCommand( nWParam, nLoWord( nLParam ), nHiWord( nLParam ) )
so i "override" it in my CLASS TGrid()
Code: Select all | Expand
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGrid
DO CASE
...
CASE nMsg == WM_SYSCOMMAND
RETURN nil
ENDCASE
now i got no Error any more
later when want to use ALT as Hotkey in TGrid() i can change it
thx for help to point me Direction to go
Re: Error when press ALT + XXX
Posted: Fri Nov 11, 2022 11:24 am
by Antonio Linares
very good
