Desativar setas direita e esquerda do achoice()

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

jcpg
Usuário Nível 1
Usuário Nível 1
Mensagens: 10
Registrado em: 18 Set 2007 16:14
Localização: rio de janeiro

Desativar setas direita e esquerda do achoice()

Mensagem por jcpg »

Como desativar as setas para direita e esquerda do comando achoice() ?
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1298
Registrado em: 06 Jul 2004 00:44
Contato:

Re: Desativar setas direita e esquerda do achoice()

Mensagem por ANDRIL »

Ola, para isso use uma função para controle do achoice.

Código: Selecionar todos

array1:={"1.exemplo","2.exemplo","3.exemplo"}
ACHOICE(10,15,20,65,array1,"","contro1_udf")

FUNCTION contro1_udf
PARAMETERS modo, num_sel, posicao
do case
    case lastkey()=13
    return 1
    case lastkey()=27
    return 0
    otherwise
    return 2
endcase
Ate+,
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Responder