Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-09-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 15
Rofocale Va por buen camino
emular enter de un buttom en un tedit

Hola a todos quisiera sabe como puedo hacer para emular el apretar enter en un boton si escribo en un edit por ejemplo hola y luego con el mouse tengo que apretar el boton para buscar determinado caracter.

lo que quiero hacer es que al escribir hola en el TEdit al apretar enter me emule dicho enter del boton y me aparesca los resultados

gracias
Responder Con Cita
  #2  
Antiguo 22-09-2011
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Poder: 23
Crandel Va por buen camino
Puedes utilizar el evento KeyPress del componente TEdit.
dentro del evento escribes algo asi:

Código Delphi [-]
if Key = #13 then
    Button1Click(Sender);

.
__________________
[Crandel]
Responder Con Cita
  #3  
Antiguo 22-09-2011
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 15
Rofocale Va por buen camino
gracias funciona
Responder Con Cita
  #4  
Antiguo 22-09-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
También vale:
Código Delphi [-]
if Key = #13 then
  Button1.Click;
Responder Con Cita
  #5  
Antiguo 22-09-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Otra opción más:
Código Delphi [-]
  if Key = #13 then
  begin
    PostMessage(Button1.Handle, WM_LBUTTONDOWN, MK_LBUTTON,0);
    PostMessage(Button1.Handle, WM_LBUTTONUP, MK_LBUTTON,0);
  end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 22-09-2011 a las 17:48:24.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Emular Servidor ASP? c0lo Internet 0 24-03-2009 05:19:25
Emular con cxCurrencyEdit evento OnChange de un TEdit. ¿ Alguien sabe ? calogero Varios 4 06-06-2007 21:24:56
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera atirado Varios 4 11-09-2004 19:13:48
TECLA <ENTER> en TEdit inetplus Varios 7 16-03-2004 23:36:23
Emular impresion en dos Gladys Impresión 1 16-10-2003 16:58:50


La franja horaria es GMT +2. Ahora son las 14:27:51.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi