Orlando FMC Posted July 30, 2012 Report Share Posted July 30, 2012 Mestres, No código abaixo, TESTKEY.PRG do samples, por que os caracteres especiais " < > | * = - ", após a expressão "Hello" não são apresentados no campo GET, ao pressionar o BUTTON "&SendKeys"? Tem alguma outra forma de usar estes caracteres numa função como esta? Preciso introduzir num campo texto (FGET - FORMAT GET) algo assim: "", atravez do pressionamento de uma tecla de função, para que depois, esta sequencia seja substituida pelo conteudo campo NOME do registro do arquivo em uso. // TESTKEY.PRG do samples // Testing Keyboard management #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oGet local cName := "This is a test" SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } ) DEFINE WINDOW oWnd TITLE "Testing Keys" @ 3, 2 GET oGet VAR cName SIZE 120, 25 OF oWnd // READONLY // try READONLY @ 1, 2 SAY "Press 'F2' key, please" SIZE 150, 22 OF oWnd @ 6, 4 BUTTON "&SendKeys" SIZE 90, 15 ; ACTION ( oGet:SetFocus(), __Keyboard( "Hello < > | * = - " ),; MsgInfo( LastKey() ) ) ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 30/07/2012 12:08:07 Editado por - orlandof on 30/07/2012 12:28:28 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted July 30, 2012 Author Report Share Posted July 30, 2012 Mestres, No código abaixo, TESTKEY.PRG do samples, por que os caracteres especiais " < > | * = - ", após a expressão "Hello" não são apresentados no campo GET, ao pressionar o BUTTON "&SendKeys"? Tem alguma outra forma de usar estes caracteres numa função como esta? Preciso introduzir num campo texto (FGET - FORMAT GET) algo assim: "", atravez do pressionamento de uma tecla de função, para que depois, esta sequencia seja substituida pelo conteudo campo NOME do registro do arquivo em uso. // TESTKEY.PRG do samples // Testing Keyboard management #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oGet local cName := "This is a test" SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } ) DEFINE WINDOW oWnd TITLE "Testing Keys" @ 3, 2 GET oGet VAR cName SIZE 120, 25 OF oWnd // READONLY // try READONLY @ 1, 2 SAY "Press 'F2' key, please" SIZE 150, 22 OF oWnd @ 6, 4 BUTTON "&SendKeys" SIZE 90, 15 ; ACTION ( oGet:SetFocus(), __Keyboard( "Hello < > | * = - " ),; MsgInfo( LastKey() ) ) ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 30/07/2012 12:08:07 Editado por - orlandof on 30/07/2012 12:28:28 Quote Link to comment Share on other sites More sharing options...
joaosolution Posted July 30, 2012 Report Share Posted July 30, 2012 Orlando oWnd:bKeyDown:={|nKey| iif(nKey=VK_F2, MsgInfo("teste"),)} Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted July 30, 2012 Author Report Share Posted July 30, 2012 citação:Orlando oWnd:bKeyDown:={|nKey| iif(nKey=VK_F2, MsgInfo("teste"),)} Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql id=quote>id=quote>João, Preciso que o conteudo da informação seja introduzido no campo memo. Isso eu consegui, porém não com os caracteres especiais: < > & $ , etc. Porém, acabei de encontrar a solução. Testei e funcionou assim: oGet:Paste( " ! # $ % & ( ) * + - . / : ; < = > ? @ ^ _ { | } ~ ó ú ½ " ) Mesmo assim, obrigado João. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.