FWH 13.05, HB 3.2.0, BCC 5.8.2
Construyo un dialogo desde c贸digo (sin usar recursos), y quiero asignar la clausa DEFAULT a un bot贸n determinado, para que al pulsar intro desde cualquier otro control, se ejecute el acti贸n de este. Vamos lo que viene siendo el funcionamiento habitual en windows.
Si dicho bot贸n lo defino desde el Init del dialogo, no actua como boton por defecto, aunque si pinta los bordes m谩s osculors como debe hacer para identificar cual es el bot贸n por defecto.
Si el bot贸n se define antes del activate, todo funciona bien. Alguna soluci贸n para poderlo definir desde el Init, y se comporte como bot贸n por defecto.
Si pulsas intro en el primer dialogo, se visualiza el mensaje Ok, en el segundo dialogo salta de control y no se ejeucta el mensaje.
Construyo un dialogo desde c贸digo (sin usar recursos), y quiero asignar la clausa DEFAULT a un bot贸n determinado, para que al pulsar intro desde cualquier otro control, se ejecute el acti贸n de este. Vamos lo que viene siendo el funcionamiento habitual en windows.
Si dicho bot贸n lo defino desde el Init del dialogo, no actua como boton por defecto, aunque si pinta los bordes m谩s osculors como debe hacer para identificar cual es el bot贸n por defecto.
Si el bot贸n se define antes del activate, todo funciona bien. Alguna soluci贸n para poderlo definir desde el Init, y se comporte como bot贸n por defecto.
#include "FiveWin.ch"
FUNCTION Main()
聽 聽LOCAL oDlg
聽 聽Dlg1()
聽 聽Dlg2()
RETURN NIL
//----------------------
STATIC FUNCTION Dlg1()
聽 聽LOCAL oDlg,cVar:=Space(10)
聽 聽DEFINE DIALOG oDlg TITLE ProcName() FROM 0,0 TO 20, 40
聽 聽@ 24, 16 SAY "SAY 1" OF oDlg SIZE 聽 88, 聽16 PIXEL
聽 聽@ 28, 66 GET cVar OF oDlg 聽SIZE 聽 24, 聽24 PIXEL
聽 聽@ 60, 44 BUTTON "&Ok" SIZE 聽 80, 聽24 OF oDlg PIXEL DEFAULT ACTION Msginfo('Ok')
聽 聽@ 100, 44 BUTTON "&Cancelar" SIZE 聽 80, 聽24 OF oDlg PIXEL ACTION oDlg:End()
聽 聽ACTIVATE DIALOG oDlg //NOWAIT
RETURN NIL
//---------------------
STATIC FUNCTION Dlg2()
聽 聽LOCAL oDlg
聽 聽DEFINE DIALOG oDlg TITLE ProcName() FROM 0,31 TO 20,80
聽 聽ACTIVATE DIALOG oDlg ON INIT PlaceCtrl(oDlg) //NOWAIT
RETURN NIL
//-----------------------------
STATIC FUNCTION PlaceCtrl(oDlg)
聽 聽LOCAL cVar:=Space(10)
聽 聽@ 24, 16 SAY "SAY 1" OF oDlg SIZE 聽 88, 聽16 PIXEL
聽 聽@ 28, 66 GET cVar OF oDlg 聽SIZE 聽 24, 聽24 PIXEL
聽 聽@ 60, 44 BUTTON "&Ok" SIZE 聽 80, 聽24 OF oDlg PIXEL DEFAULT ACTION Msginfo('Ok')
聽 聽@ 100, 44 BUTTON "&Cancelar" SIZE 聽 80, 聽24 OF oDlg PIXEL ACTION oDlg:End()
RETURN NILSi pulsas intro en el primer dialogo, se visualiza el mensaje Ok, en el segundo dialogo salta de control y no se ejeucta el mensaje.
