tdbeditbtn ayuda

PILO · Mensaje por **PILO** » Mié Nov 14, 2007 5:30 pm

En el control TDBEDITBTN con el evetno
OnBtnClick puedo ir a una funcion determinado o evento
como puedo activar los mismo per con el control de una o mas
teclas.
En un tdbcombobox se puede despegar con el conjuto de teclas "alt+Flecha
abajo"
se puede esto o parecido en el Tdbeditbtn
Alguien me puede ayudar en esto. Gracias

YouTube · Mensaje por **ignacio** » Mié Nov 14, 2007 6:05 pm

Pilo,
No, no se puede. Le recomiendo que utilice un menú popup que se desplegue
cuando se pulse el botón.
METHOD BtnClick( oSender ) CLASS TFrm
LOCAL oPopup
MENU POPUP oPopup
MENUITEM ...
MENUITEM ...
ENDMENU
::oEdit:ShowPopupMenu( oPopup )
RETURN Nil
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:[email=473b229b@ozsrv2.ozlan.local...]473b229b@ozsrv2.ozlan.local...[/email]
> En el control TDBEDITBTN con el evetno
> OnBtnClick puedo ir a una funcion determinado o evento
> como puedo activar los mismo per con el control de una o mas
> teclas.
> En un tdbcombobox se puede despegar con el conjuto de teclas "alt+Flecha
> abajo"
> se puede esto o parecido en el Tdbeditbtn
>
> Alguien me puede ayudar en esto. Gracias
>
>

PILO · Mensaje por **PILO** » Mié Nov 14, 2007 6:46 pm

"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:473b2adf$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pilo,
>
> No, no se puede. Le recomiendo que utilice un menú popup que se desplegue
> cuando se pulse el botón.
>
Lo que necesito es que cuando utilice una asociacion de 2 teclas de control
se vaya al mismo
evento que cuando pulso el boton, es posible esto y un pequeño ejemplo,
Gracias por tu tiemo ignacio.

Mensaje por **jfgimenez** » Mié Nov 14, 2007 7:04 pm

PILO,
> Lo que necesito es que cuando utilice una asociacion de 2 teclas de
> control se vaya al mismo
> evento que cuando pulso el boton, es posible esto y un pequeño ejemplo,
TEditBtn dispara el evento OnClick tanto al hacer click con el ratón como al
pulsar la tecla F2. No obstante, si necesitas que funcione con otra
combinación de teclas puedes hacerlo desde el evento OnKeyDown del propio
control o del formulario. P.ej.:
METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TForm1
// Ctrl + F8
IF nKey == VK_F8 .AND. lGetKeyState( VK_CONTROL )
::oEditBtn1:OnClick()
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

PILO · Mensaje por **PILO** » Jue Nov 15, 2007 4:47 pm

Gracias lo de la tecla F2 es lo que necesitava.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:473b38bd$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> PILO,
>
>> Lo que necesito es que cuando utilice una asociacion de 2 teclas de
>> control se vaya al mismo
>> evento que cuando pulso el boton, es posible esto y un pequeño ejemplo,
>
> TEditBtn dispara el evento OnClick tanto al hacer click con el ratón como
> al pulsar la tecla F2. No obstante, si necesitas que funcione con otra
> combinación de teclas puedes hacerlo desde el evento OnKeyDown del propio
> control o del formulario. P.ej.:
>
> METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TForm1
> // Ctrl + F8
> IF nKey == VK_F8 .AND. lGetKeyState( VK_CONTROL )
> ::oEditBtn1:OnClick()
> ENDIF
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>