I have a multiline get. If the user clicks into it, the cursor will be placed where they clicked.
How can I force the cursor to go the the start of the get but only when the get receives the focus.
If the get has the focus, the user should be able to click anywhere they want in the get.
Jeff:
Pls Have a look to Antonio's answer. perhaps it can help you.
viewtopic.php?f=3t=25979p=142184hilit=cursor#p142184
Regards
&&&
cMEMO := StrTran( oRs:Fields(cField):Value, Chr( 141 ) + Chr( 10 ), "" )
If empty( cMemo) .or. cMemo = " "
Else
cMemo := alltrim( cMemo )
Endif
DO CASE
CASE cMODE = "A"
cTITLE := cTitle +" ADD"
CASE cMODE = "E"
cTITLE := cTitle +" EDIT"
CASE cMODE = "V"
cTITLE := cTitle +" VIEW"
ENDCASE
DEFINE DIALOG oUSERS RESOURCE "MEMO" ;
TITLE cTITLE ;
IF cMODE = "E"
REDEFINE GET oMEMO VAR cMEMO MEMO ID 130 of oUSERS UPDATE
ELSE // view
REDEFINE GET oMEMO VAR cMEMO ID 130 of oUSERS READONLY
ENDIF
IF cMODE = 'E'
oMemo:bGotFocus = { || oMemo:SetSel( 0, 0 ),;
oMemo:Goto( oMemo:GetLineCount() ),;
__Keyboard( Chr( VK_END ) ) }
ENDIF
REDEFINE BTNBMP oBtn1 ID 111 of oUSERS ; // ok
RESOURCE "OK", "DOK", "DOK" ;
PROMPT " &Ok " LEFT 2007;
ACTION (IF(cMODE ="E", _DOIT(cMemo,oRs,cField), ), ;
oUSERS:END() )
REDEFINE BTNBMP oBtn2 ID 112 of oUSERS ; // cancel
RESOURCE "CANCEL", "DCANCEL", "DCANCEL" ;
PROMPT "&Cancel " LEFT 2007;
ACTION oUSERS:END()
ACTIVATE DIALOG oUSERS
RETURN( NIL )Thanks Guys.
Got it working with: oGet1:bGotFocus := {|| oGet1:SetPos(0,0) }