Posição Inicial do cursor GET com Memo

[Geraldo (gbsilva)]

Pessoal tenho um GET que é um campo memo e preciso que toda vez que entrar nesse campo o cursor vá para a posição inicial.

Uso assim no código e estou usando pelles:

REDEFINE GET oCad[9] VAR oAux:notas MEMO ID 25 OF oDlg FONT oFont

Grato,

Geraldo B. Silva

Fwh1111 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql.

lucgera@terra.com.br

São Paulo - SP

[Geraldo (gbsilva)]

Pessoal tenho um GET que é um campo memo e preciso que toda vez que entrar nesse campo o cursor vá para a posição inicial.

Uso assim no código e estou usando pelles:

REDEFINE GET oCad[9] VAR oAux:notas MEMO ID 25 OF oDlg FONT oFont

Grato,

Geraldo B. Silva

Fwh1111 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql.

lucgera@terra.com.br

São Paulo - SP

[HERGON]

Olá Geraldo, bom dia.

Tente assim:

oCad[9]:bGotFocus:={|| oCad[9]:HideSel()}

Abraço

Herberson Gontijo

Ponteware Software

[gunafe]

Boa tarde Geraldo,

Eu uso conforme abaixo, veja se resolve seu problema:

REDEFINE GET oFGet VAR tMemo MEMO ID 65 OF oDlg_3 FONT oFont

oFGet:bKeyDown := { |nKey|;

IF( nKey = VK_RETURN,( oFGet:SetColor( ,CLR_WHITE ), oFGet:Refresh(), oFld:SetOption( 1), xSetFocus( btnf5 ) ),;

IF( nKey = VK_ESCAPE,( oFGet:SetColor( ,CLR_WHITE ), oFGet:Refresh(), oFld:SetOption( 1), xSetFocus( _ANA[ 1] ) ), nil )) }

oFGet:bGotFocus := { || oFGet:SetSel( 0, 0 ), oFGet:SetPos( 0, 0 ), oFGet:SetColor( nRGB( 0, 0, 185 ), nRGB( 249, 251, 151 ) ),;

oFGet:Goto( oFGet:GetLineCount() ), __Keyboard( Chr( VK_END ) ) }

oFGet:cTooltip := "Preencha o Campo de Conclusão "

id=code>id=code>

[]´s

Luiz Augusto

São José dos Pinhais - PR

xHarbour + Fivewin + Workshop + Sql via Odbc

Vamos Aderir:"Retorne avisando se a dica funcionou"