FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Folder + SetKey()
Posts: 366
Joined: Wed Aug 30, 2006 05:25 PM
Folder + SetKey()
Posted: Sat May 05, 2007 08:41 PM

Amigos:

Ten un folder de 7 pestañas y unas teclas que muestran un menu.

Esas teclas deben habilitarse segun la pestaña que este activa.

SetKey(VK_F5, {|nKey| ShowMenu(0,0 ) })

Solo quiero que esta funcion este accesible cuando la pestaña 2
este activa.

Alguna idea.

Saludos y gracias

Ruben Fernandez

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82
Posts: 229
Joined: Sat Mar 18, 2006 03:42 PM
Folder + SetKey()
Posted: Sat May 05, 2007 09:32 PM

Puedes usar oFolde:nOption, que contiene la pestaña activa.

Yo lo uso así:

Desde un botón que está fuera del folder, al hacer click mando a ejecutar una acción dependiendo de la pestaña activa.

@n,n button ........ Action (pest:=oFolde:nOption,if(pest==1,accion1(), if(pest==2,accion2(),accion3())))

Espero te sirva

Saludos

Marcelo Jingo

Marcelo Jingo
Posts: 366
Joined: Wed Aug 30, 2006 05:25 PM
Folder + SetKey()
Posted: Sat May 05, 2007 09:42 PM

Gracias Marcelo:

Lo solucione de la siguiente forma:

En el On Change del folder funcion ActivaTeclas()

Func ActivaTeclas()
If oFolder:nOption = 1
Activo F5 o lo que sea y desactivbo las otras.
elseif oFolder:nOption =2
Activo F6 y desactivo las otras
Endif

Gracias y saludos

Ruben Fernandez.

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

Continue the discussion