FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour 驴C贸mo saber en cual de todos los controles se hizo un ENTER?
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM

驴C贸mo saber en cual de todos los controles se hizo un ENTER?

Posted: Thu Apr 05, 2007 08:54 PM

Gente,

Tengo un dialogo con:
1 browser
2 un par de say
4 botones.

Estoy capturando las teclas que se presionan y quiero saber en que control se pulso en RETURN.

Como debo hacerlo?

Gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

驴C贸mo saber en cual de todos los controles se hizo un ENTER?

Posted: Thu Apr 05, 2007 09:45 PM
#Include "FiveWin.Ch"

Function Main()

   LOCAL oWnd

   DEFINE WINDOW oWnd TITLE "Testando as Teclas - Caixa Alta e Baixa"

   oWnd:bKeyDown = { | nKey | MsgInfo( "Caixa Baixa: " + Str( nKey ) ) }
   oWnd:bKeyChar = { | nKey | MsgInfo( "Caixa Alta.: " + Str( nKey ) ) }

   ACTIVATE WINDOW oWnd

Return Nil
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM

驴C贸mo saber en cual de todos los controles se hizo un ENTER?

Posted: Thu Apr 05, 2007 11:44 PM
karinha wrote:
#Include "FiveWin.Ch"

Function Main()

   LOCAL oWnd

   DEFINE WINDOW oWnd TITLE "Testando as Teclas - Caixa Alta e Baixa"

   oWnd:bKeyDown = { | nKey | MsgInfo( "Caixa Baixa: " + Str( nKey ) ) }
   oWnd:bKeyChar = { | nKey | MsgInfo( "Caixa Alta.: " + Str( nKey ) ) }

   ACTIVATE WINDOW oWnd

Return Nil


Gracias
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion