Focus Problem
Posted: Sun Nov 25, 2007 1:11 am
To All
I have a window with a buttonbar and one of the buttons is a find button ,
when that is activated a get on the buttonbar is made visible and as the users types in letters an incremental search is done and the browse is refreshed on each keypress - when the enter key is pressed the get is
hidden and the focus is set to the browse - the browse does get focus but them loses it and I cant find which control or if any control has focus - I hit the tab key but there is movement on the other controls.
DEFINE BUTTON oBtn5 of oBar RESOURCE "EYE" ;
FLAT ;
PROMPT 'Find' ;
ACTION(cCode := space(5),oCode:Top(),oCust:SetPos(0),oCust:Show(),oCust:SetFocus());
TOOLTIP('Find Customer')
@ 15,450 GET oCust VAR cCode picture '@!' UPDATE of oBar SIZE 80,20 ;
on change(if(oCust:nLastKey>32,chr(oCust:nLastKey),""),self:cargo:seek(trim(oCust:cText)),;
if(oCust:nLastkey==13,(oCust:Hide(),oLbx:SetFocus(),oLbx:GoToCol(2)),oLbx:Refresh())) ;
FONT oFont ;
PIXEL
oCust:cargo := oCode
Thanks for any ideas
Regards
Colin
I have a window with a buttonbar and one of the buttons is a find button ,
when that is activated a get on the buttonbar is made visible and as the users types in letters an incremental search is done and the browse is refreshed on each keypress - when the enter key is pressed the get is
hidden and the focus is set to the browse - the browse does get focus but them loses it and I cant find which control or if any control has focus - I hit the tab key but there is movement on the other controls.
DEFINE BUTTON oBtn5 of oBar RESOURCE "EYE" ;
FLAT ;
PROMPT 'Find' ;
ACTION(cCode := space(5),oCode:Top(),oCust:SetPos(0),oCust:Show(),oCust:SetFocus());
TOOLTIP('Find Customer')
@ 15,450 GET oCust VAR cCode picture '@!' UPDATE of oBar SIZE 80,20 ;
on change(if(oCust:nLastKey>32,chr(oCust:nLastKey),""),self:cargo:seek(trim(oCust:cText)),;
if(oCust:nLastkey==13,(oCust:Hide(),oLbx:SetFocus(),oLbx:GoToCol(2)),oLbx:Refresh())) ;
FONT oFont ;
PIXEL
oCust:cargo := oCode
Thanks for any ideas
Regards
Colin