Página 1 de 1

PUSHBUTTON + ISPRESSED

Enviado: 15 Jun 2009 13:39
por tonyx
VERSAO XH 1.0
fazer menu simples usava @ prompy

vi modelo do manual do XH; PUSHBUTTON com ISPRESSED()

ao compilar da error nao achar o ISPRESSED() em que lib esta ??
//--------
nao sei se passo para o modelo RADIOGROUP

ATE VI ALGO SOBRE O VISUAL.CH - MAS TENTAR PUSHBUTTON MAIS FACIL

AGRADECO AJUDA :'(

Re: PUSHBUTTON + ISPRESSED

Enviado: 15 Jun 2009 13:48
por sygecom

Código: Selecionar todos

FUNCTION IsPressed( nButton )
      IF GetActive():control:buffer
         ReadKill( .T. )
      ELSE
         nButton := 0
      ENDIF
   RETURN nButton