SET KEY EN MDI

[wmormar]

Bueno amigos,

pues eso, hay forma de que me respete un setkey en cada ventana.

por ejemplo, tengo asignado el F2 en varias pantallas que tengo de mi sistema, pero cada ventana efectua cuestiones diferentes con el F2, hay manera de que cada pantalla, efectue la funcion definida para cada F2 de la ventana que tenga el foco?

espero haberme explicado, se agradecen de antemano las ayudas.

[wmormar]

Amigos,

solucionado, para los que tengan el mismo problema con los SETKEY

bastó con aplicarle el el bGotFocus a la window y ahí redefinir el set key, entoces cada vez que obtenga el foco, el set key será el que debe lleva cada child.

pos eso, jjejjejje

[ADBLANCO]

EVALUA ESTO

• ****************************************************************************
  CLASS TVKEY // Clase para controlar teclas de funcion
  ****************************************************************************
  DATA OldKeys INIT {SETKEY(VK_F1 ),;
  SETKEY(VK_F2 ),;
  SETKEY(VK_F3 ),;
  SETKEY(VK_F4 ),;
  SETKEY(VK_F5 ),;
  SETKEY(VK_F6 ),;
  SETKEY(VK_F7 ),;
  SETKEY(VK_F8 ),;
  SETKEY(VK_F9 ),;
  SETKEY(VK_F10 ),;
  SETKEY(VK_F11 ),;
  SETKEY(VK_F12 ),;
  SETKEY(VK_F13 ),;
  SETKEY(VK_F14 ),;
  SETKEY(VK_F15 ),;
  SETKEY(VK_F16 ),;
  SETKEY(VK_F17 ),;
  SETKEY(VK_F18 ),;
  SETKEY(VK_F19 ),;
  SETKEY(VK_F20 ),;
  SETKEY(VK_F21 ),;
  SETKEY(VK_F22 ),;
  SETKEY(VK_F23 ),;
  SETKEY(VK_F24 ),;
  SETKEY(VK_INSERT),;
  SETKEY(VK_DELETE),;
  SETKEY(VK_UP ),;
  SETKEY(VK_RIGHT ),;
  SETKEY(VK_DOWN ),;
  SETKEY(VK_SELECT),;
  SETKEY(VK_PRINT ),;
  SETKEY(VK_ESCAPE),;
  SETKEY(VK_RETURN),;
  SETKEY(VK_PRIOR ),;
  SETKEY(VK_NEXT ),;
  SETKEY(VK_HOME ),;
  SETKEY(VK_END )}
  METHOD New() CONSTRUCTOR
  
  METHOD End()
  
  ENDCLASS
  
  METHOD New() CLASS TVKEY
  ::oldKeys[1] :=SETKEY(VK_F1 , NIL )
  ::oldKeys[2] :=SETKEY(VK_F2 , NIL )
  ::oldKeys[3] :=SETKEY(VK_F3 , NIL )
  ::oldKeys[4] :=SETKEY(VK_F4 , NIL )
  ::oldKeys[5] :=SETKEY(VK_F5 , NIL )
  ::oldKeys[6] :=SETKEY(VK_F6 , NIL )
  ::oldKeys[7] :=SETKEY(VK_F7 , NIL )
  ::oldKeys[8] :=SETKEY(VK_F8 , NIL )
  ::oldKeys[9] :=SETKEY(VK_F9 , NIL )
  ::oldKeys[10]:=SETKEY(VK_F10 , NIL )
  ::oldKeys[11]:=SETKEY(VK_F11 , NIL )
  ::oldKeys[12]:=SETKEY(VK_F12 , NIL )
  ::oldKeys[13]:=SETKEY(VK_F13 , NIL )
  ::oldKeys[14]:=SETKEY(VK_F14 , NIL )
  ::oldKeys[15]:=SETKEY(VK_F15 , NIL )
  ::oldKeys[16]:=SETKEY(VK_F16 , NIL )
  ::oldKeys[17]:=SETKEY(VK_F17 , NIL )
  ::oldKeys[18]:=SETKEY(VK_F18 , NIL )
  ::oldKeys[19]:=SETKEY(VK_F19 , NIL )
  ::oldKeys[20]:=SETKEY(VK_F20 , NIL )
  ::oldKeys[21]:=SETKEY(VK_F21 , NIL )
  ::oldKeys[22]:=SETKEY(VK_F22 , NIL )
  ::oldKeys[23]:=SETKEY(VK_F23 , NIL )
  ::oldKeys[24]:=SETKEY(VK_F24 , NIL )
  ::oldKeys[25]:=SETKEY(VK_INSERT, NIL )
  ::oldKeys[26]:=SETKEY(VK_DELETE, NIL )
  ::oldKeys[27]:=SETKEY(VK_UP , NIL )
  ::oldKeys[28]:=SETKEY(VK_RIGHT , NIL )
  ::oldKeys[29]:=SETKEY(VK_DOWN , NIL )
  ::oldKeys[30]:=SETKEY(VK_SELECT, NIL )
  ::oldKeys[31]:=SETKEY(VK_PRINT , NIL )
  ::oldKeys[32]:=SETKEY(VK_ESCAPE, NIL )
  ::oldKeys[33]:=SETKEY(VK_RETURN, NIL )
  ::oldKeys[34]:=SETKEY(VK_PRIOR , NIL )
  ::oldKeys[35]:=SETKEY(VK_NEXT , NIL )
  ::oldKeys[36]:=SETKEY(VK_HOME , NIL )
  ::oldKeys[37]:=SETKEY(VK_END , NIL )
  Return self
  
  METHOD End() CLASS TVKEY
  SETKEY(VK_F1 ,::OldKeys[ 1])
  SETKEY(VK_F2 ,::OldKeys[ 2])
  SETKEY(VK_F3 ,::OldKeys[ 3])
  SETKEY(VK_F4 ,::OldKeys[ 4])
  SETKEY(VK_F5 ,::OldKeys[ 5])
  SETKEY(VK_F6 ,::OldKeys[ 6])
  SETKEY(VK_F7 ,::OldKeys[ 7])
  SETKEY(VK_F8 ,::OldKeys[ 8])
  SETKEY(VK_F9 ,::OldKeys[ 9])
  SETKEY(VK_F10 ,::OldKeys[10])
  SETKEY(VK_F11 ,::oldKeys[11])
  SETKEY(VK_F12 ,::oldKeys[12])
  SETKEY(VK_F13 ,::oldKeys[13])
  SETKEY(VK_F14 ,::oldKeys[14])
  SETKEY(VK_F15 ,::oldKeys[15])
  SETKEY(VK_F16 ,::oldKeys[16])
  SETKEY(VK_F17 ,::oldKeys[17])
  SETKEY(VK_F18 ,::oldKeys[18])
  SETKEY(VK_F19 ,::oldKeys[19])
  SETKEY(VK_F20 ,::oldKeys[20])
  SETKEY(VK_F21 ,::oldKeys[21])
  SETKEY(VK_F22 ,::oldKeys[22])
  SETKEY(VK_F23 ,::oldKeys[23])
  SETKEY(VK_F24 ,::oldKeys[24])
  SETKEY(VK_INSERT,::oldKeys[25])
  SETKEY(VK_DELETE,::oldKeys[26])
  SETKEY(VK_UP ,::oldKeys[27])
  SETKEY(VK_RIGHT ,::oldKeys[28])
  SETKEY(VK_DOWN ,::oldKeys[29])
  SETKEY(VK_SELECT,::oldKeys[30])
  SETKEY(VK_PRINT ,::oldKeys[31])
  SETKEY(VK_ESCAPE,::oldKeys[32])
  SETKEY(VK_RETURN,::oldKeys[33])
  SETKEY(VK_PRIOR ,::oldKeys[34])
  SETKEY(VK_NEXT ,::oldKeys[35])
  SETKEY(VK_HOME ,::oldKeys[36])
  SETKEY(VK_END ,::oldKeys[37])
  
  Return nil

[ADBLANCO]

ejemplo de uso

LOCAL oDlg,oFKey,bBut05

oFKey:=tvkey():new // CLASE TVKEY (control de teclas de funcion)
SETKEY(VK_F5 , { || eval(bBut05 ) })
bBut05 := { || IIF(oBut05:lActive ,(EVAL(bButDisable),;
FINAN(oDlg),EVAL(bButEnable),oBut05:Setfocus()),)}
DEFINE DIALOG oDlg RESOURCE "CAJA_1" OF oDlgAnt;
FONT oFontGen;
TITLE "Caja"
REDEFINE BUTTON oBut05 ID 105 OF oDlg ;
MESSAGE "Pulse Para Operaciones Financiado" ;
PROMPT "[F5]-Financ." ;
ACTION EVAL(bBut05)
ACTIVATE DIALOG oDlg CENTER
oFKey:End()

[wmormar]

Angel,

gracias por tu atención.

lo checaré a la vrebedad posible

[gabo]

William

de xHarbour

aKeysOld := HB_SetKeySave(NIL)
.......
.......
HB_SetKeySave(aKeysOld)

Saludos
GABO

[wmormar]

Gabo,

me sirve, aunque es el mismo efecto de setkey().

sigo checando opciones, aunque hasta ahora he colocado el gotfocus en la ventana y me ha funcionado perfectamente