Page 1 of 1
inhabilitar page en Tab
Posted: Sat Apr 22, 2017 6:47 pm
by Renegado
Hola. Si tengo 2 tab cómo inhabilito el segundo, si estoy editando en el primero?
en el demo1 puse ENABLED pero no funciona.
Gracias por su ayuda
Hi. If I have 2 tab how do I disable the second, if I am editing in the first ?
Thanks for your help
Code: Select all
/*
* HMG Hello World Demo
*/
#include "hmg.ch"
Function Main
Load Window Test
Activate Window Test
Test.Tab_1(2).Enabled:=.f. //no funcionó ///Page_1(2).Enabled:=.f.
Return
Re: inhabilitar page en Tab
Posted: Sat Apr 22, 2017 8:25 pm
by Renegado
Saludos, creo que si no es posible, haré lo siguiente:
Code: Select all
/*
* HMG Hello World Demo
*/
#include "hmg.ch"
Function Main
public edita, m
edita :=1
m:=0
Load Window Test
m:= test.tab_1.value
Activate Window Test
Return
Procedure evalua --------> lo llamo desde el evento ONCHANGE del Tab
if edita==1
Test.Tab_1.Value := m
end if
return
Igual y me funciona. Gracias
Re: inhabilitar page en Tab
Posted: Sun Apr 23, 2017 12:31 am
by ASESORMIX
Creo que con "on change" pudes colocar el value igual 1.
y asi se puede entrar en la page 2
Re: inhabilitar page en Tab
Posted: Sun Apr 23, 2017 12:33 am
by ASESORMIX
Disculpa, no me explique bien.
Creo que con "on change" pudes colocar el value igual 1.
y asi NO se puede entrar en la page 2
Re: inhabilitar page en Tab
Posted: Sun Apr 23, 2017 6:55 pm
by andyglezl
Quizá de esta forma...
// ON CHANGE
Code: Select all
FUNCTION ChecaTab( )
IF Form_3.Tab_1.Value = 1
// Permitido entrar
ELSEIF Form_3.Tab_1.Value = 2
// Permitido entrar
ELSEIF Form_3.Tab_1.Value = 3
// Permitido entrar
ELSEIF Form_3.Tab_1.Value = 4
// Permitido entrar
ELSEIF Form_3.Tab_1.Value = 5
Form_3.Tab_1.Value := 1 // Si es TAB 5, regresate al primero.
ENDIF
*MSGBOX( Form_Main.tab_1.caption( Form_Main.tab_1.value ) ) // Desplegar en que TAB estoy
Return Nil
Re: inhabilitar page en Tab
Posted: Mon Apr 24, 2017 1:28 am
by ASESORMIX
Si Asi.
Re: inhabilitar page en Tab
Posted: Thu Apr 27, 2017 1:43 am
by Renegado
Excelente. Muchas gracias amigos