Tenho um DIALOG funcionando normal, mas quando eu divido os GETS em duas abas diferentes, no momento que a página é apresentada fica sem foco no primeiro GET da primeira ABA, o foco só fica certo se eu clicar na segnda ABA e depois clicar na primeira ABA. Como faço para o foco aparecer no primeiro GET da primeira ABA?
Outro problema (esse acontece mesmo sem usar ABAS) conforme vou dando TAB ou ENTER o foco vai passando pro GET seguinte, mas o foco nunca vai para o RADIOBUTTON e nem para o COMBOBOX, porque? existe algum tipo de "tabindex" igual o HTML?
Código: Selecionar todos
PREPARE FONT oFont NAME "Arial" WIDTH 0 HEIGHT -12 WEIGHT 400
INIT DIALOG oJanela CLIPPER NOEXIT TITLE vTitulo AT 0,0 SIZE 700,500 ICON oIcon FONT oFont STYLE DS_CENTER + WS_VISIBLE + WS_CAPTION + WS_SYSMENU + WS_SIZEBOX ON INIT {|| opage1:setfocus()}
@ 0,0 TAB oPage1 ITEMS {} SIZE 700,450 STYLE 0 +1
BEGIN PAGE 'Cadastro' OF oPage1
@ 10 ,30 SAY "Código" SIZE 100,22
@ 10 ,060 SAY "Nome" SIZE 100,22
@ 10 ,090 SAY "Contato" SIZE 100,22
@ 470,090 SAY "Telefone" SIZE 100,22
@ 10 ,120 SAY "Endereço" SIZE 100,22
@ 010 ,150 SAY "Bairro" SIZE 100,22
@ 250 ,150 SAY "Cidade" SIZE 100,22
@ 470 ,150 SAY "CEP" SIZE 100,22
@ 90 ,030 GET ocod_for VAR wCod_For PICTURE "99999" SIZE 80,22 MAXLENGTH 5
@ 90 ,060 GET onome VAR wnome PICTURE "@!" SIZE 350,22 MAXLENGTH 40
RADIOGROUP
@ 470,30 RADIOBUTTON oRadiobutton1 CAPTION "Física" SIZE 100,22
@ 470,50 RADIOBUTTON oRadiobutton2 CAPTION "Jurídica" SIZE 100,22
END RADIOGROUP
RADIOGROUP
@ 570,30 RADIOBUTTON oRadiobutton3 CAPTION "Nacional" SIZE 100,22
@ 570,50 RADIOBUTTON oRadiobutton4 CAPTION "Internacional" SIZE 100,22
END RADIOGROUP
@ 90 ,090 GET ocontato VAR wcontato PICTURE "@!" SIZE 350,22 MAXLENGTH 40
@ 550,090 GET otel_cont VAR wtel_cont PICTURE "@R 999 9999-9999" SIZE 100,22 MAXLENGTH 13
@ 90 ,120 GET oendereco VAR wEndereco PICTURE "@!" SIZE 350,22 MAXLENGTH 40 STYLE ES_AUTOHSCROLL +WS_BORDER
@ 090 ,150 GET obairro VAR wbairro PICTURE "@!" SIZE 150,22 MAXLENGTH 15
@ 300 ,150 GET ocidade VAR wcidade PICTURE "@!" SIZE 150,22 MAXLENGTH 15
@ 510 ,150 GET ocep VAR wcep PICTURE "@R 99999-999" SIZE 80,22 MAXLENGTH 9
@ 620 ,150 COMBOBOX oUF ITEMS retornaUFs() SIZE 50,500 INIT ascan(retornaUFs(),wUF)
END PAGE OF oPage1
BEGIN PAGE 'Dados Bancários' OF oPage1
@ 10 ,030 SAY "Banco" SIZE 100,22
@ 10 ,060 SAY "Agência" SIZE 100,22
@ 10 ,090 SAY "Conta" SIZE 100,22
@ 10 ,120 SAY "Praça" SIZE 100,22
@ 90 ,030 GET obanco VAR wbanco PICTURE "@X" SIZE 300,22 MAXLENGTH 30
@ 90 ,060 GET oagencia VAR wagencia PICTURE "@X" SIZE 300,22 MAXLENGTH 30
@ 90 ,090 GET oconta VAR wcc PICTURE "@X" SIZE 300,22 MAXLENGTH 30
@ 90 ,120 GET opraca VAR wpraca PICTURE "@X" SIZE 350,22 MAXLENGTH 40
END PAGE OF oPage1
@ 010,459 BUTTON btnConfirma CAPTION "&Confirma" TOOLTIP "Confirma Operação" SIZE 90,32 ON CLICK {||oJanela:close(),gravaFornecedor() } STYLE WS_TABSTOP
@ 110,459 BUTTON btnCancela CAPTION "&Cancela" TOOLTIP "Cancela Operação" SIZE 90,32 ON CLICK {||oJanela:close()} STYLE WS_TABSTOP
oJanela:Activate()
usei o comando