inhabilitar page en Tab

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
Renegado
Posts: 83
Joined: Tue Mar 11, 2014 11:59 pm

inhabilitar page en Tab

Post 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
User avatar
Renegado
Posts: 83
Joined: Tue Mar 11, 2014 11:59 pm

Re: inhabilitar page en Tab

Post 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
ASESORMIX
Posts: 190
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela

Re: inhabilitar page en Tab

Post by ASESORMIX »

Creo que con "on change" pudes colocar el value igual 1.
y asi se puede entrar en la page 2
ASESORMIX
Posts: 190
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela

Re: inhabilitar page en Tab

Post 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
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: inhabilitar page en Tab

Post 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
Andrés González López
Desde Guadalajara, Jalisco. México.
ASESORMIX
Posts: 190
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela

Re: inhabilitar page en Tab

Post by ASESORMIX »

Si Asi.
User avatar
Renegado
Posts: 83
Joined: Tue Mar 11, 2014 11:59 pm

Re: inhabilitar page en Tab

Post by Renegado »

Excelente. Muchas gracias amigos
Post Reply