Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-11-2008
Lizette Lizette is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Lizette Va por buen camino
Propiedad onclick de ComboBox

Hola a todos..
Tengo un combo box, que al hacer click sobre él y si éste no tiene nada (es decir, ningun item seleccionado), me retorne a un edit..

El codigo que utilizo es el siguiente, en el evento on click del combo, le intente con if(length(ComboClas.text)=0) y tampoco tuve éxito..

El EditVacio.text es un edit q no contiene texto y con ese lo comparo..

Código Delphi [-]
procedure TfrmProductoAdd.ComboClasClick(Sender: TObject);
begin
if (ComboClas.Text=EditVacio.Text)then
  begin
   if(EditPres.Text<>EditVacio.Text)then
    begin
     EditPres.SetFocus;
    end
   else
   if(EditDes.Text<>EditVacio.Text)then
    begin
     EditDes.SetFocus;
    end
   else
    begin
     EditCve.Enabled:=True;
     EditCve.Color:=clWindow;
     EditCve.SetFocus;
    end;
  end;
end;
Responder Con Cita
  #2  
Antiguo 19-11-2008
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Poder: 19
luisgutierrezb Va por buen camino
ningun item seleccionado lo puedes validar con:

Código Delphi [-]
if Combobox.ItemIndex < 0 then
  // no tiene elementos
Responder Con Cita
  #3  
Antiguo 19-11-2008
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Prueba con este código y el evento exit:
Código Delphi [-]
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  if combobox1.ItemIndex = -1 then
  ShowMessage('No ha elegido nada.')
  else
  ShowMessage('Eligió algo');
end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #4  
Antiguo 19-11-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Código Delphi [-]
if ComboClas.Text = ' ' then
EditPres.setFocus;
Saludos
__________________
Siempre Novato
Responder Con Cita
  #5  
Antiguo 19-11-2008
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
Si lo que quieres es validar que siempre tenga algo seleccionado, solamente vas poner la propiedad ItemIndex en 0 y la propiedad Style en DropDownList
__________________

Responder Con Cita
  #6  
Antiguo 20-11-2008
Lizette Lizette is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Lizette Va por buen camino
Mmmm el caso es que quiero, que si se hace clic dentro del combo q no lo acepte, porque estoy haciendo un tipo de validacion que no me permita hacer click en ningun objeto, que solo se desplace por medio de enter o tabulador, pero si hago click en el combo alli se queda el cursor y no me hace nada..
Responder Con Cita
  #7  
Antiguo 20-11-2008
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
A caray....
__________________

Responder Con Cita
  #8  
Antiguo 20-11-2008
Avatar de donald shimoda
donald shimoda donald shimoda is offline
Miembro
 
Registrado: jul 2008
Ubicación: Argentino en Santa Cruz de la Sierra
Posts: 1.083
Poder: 17
donald shimoda Va por buen camino
Cita:
Empezado por Lizette Ver Mensaje
Mmmm el caso es que quiero, que si se hace clic dentro del combo q no lo acepte, porque estoy haciendo un tipo de validacion que no me permita hacer click en ningun objeto, que solo se desplace por medio de enter o tabulador, pero si hago click en el combo alli se queda el cursor y no me hace nada..
No funciona el chequeo en el OnEnter del combo, seteando el focus al control deseado?

Saludos
__________________
Donald Shimoda [Team RO] - Blogs: Remobjects Pascal
Responder Con Cita
  #9  
Antiguo 20-11-2008
Lizette Lizette is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Lizette Va por buen camino
hola donald, le cale como me dices y si me lo hace, si hago clic sobre el me regresa el foco, pero cuando me desplazo con enter o tab y llega uno antes del combo, alli se keda pk nunca se pasa al combo para seleccionar..
Responder Con Cita
  #10  
Antiguo 20-11-2008
Avatar de donald shimoda
donald shimoda donald shimoda is offline
Miembro
 
Registrado: jul 2008
Ubicación: Argentino en Santa Cruz de la Sierra
Posts: 1.083
Poder: 17
donald shimoda Va por buen camino
Cita:
Empezado por Lizette Ver Mensaje
hola donald, le cale como me dices y si me lo hace, si hago clic sobre el me regresa el foco, pero cuando me desplazo con enter o tab y llega uno antes del combo, alli se keda pk nunca se pasa al combo para seleccionar..

Puedes pegar aquí el código?
__________________
Donald Shimoda [Team RO] - Blogs: Remobjects Pascal
Responder Con Cita
  #11  
Antiguo 21-11-2008
Lizette Lizette is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Lizette Va por buen camino
Código Delphi [-]
procedure TfrmProductoAdd.ComboClasEnter(Sender: TObject);
begin
if (ComboClas.Text=EditVacio.Text)then
  begin
   if(EditPres.Text<>EditVacio.Text)then
    begin
     EditPres.SetFocus;
    end
   else
   if(EditDes.Text<>EditVacio.Text)then
    begin
     EditDes.SetFocus;
    end
   else
    begin
     EditCve.Enabled:=True;
     EditCve.Color:=clWindow;
     EditCve.SetFocus;
    end;
  end;
end;

Mmm lo q habia pensado es en poner una bandera, esk tal vez por la condicion que tiene al principio, pk si da click en el combo y esta vacio se devuelve, es correcto, pero cuando me desplazo por los componentes con enter o tab y llego hasta el combo, entra a la condicion y se devuelve..

Seria una bandera si se desplaza con entero tab que se active la bandera y entonces preguntaria en vez de if (ComboClas.Text=EditVacio.Text)then, mas bien agregandole and (bandera=0), que se devuelva, y si bandera es =1, lo va a dejar seleccionar..

Como vez mi idea donald??, no lo he calado..
Responder Con Cita
  #12  
Antiguo 21-11-2008
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
en el evento "OnExit" de tu combo podrías poner cualquiera de estas dos opciones:

Código:
If trim(Combo.Text) = '' then Combo.SetFocus;
Código:
If Combo.ItemIndex = -1 then Combo.SetFocus;
__________________

Responder Con Cita
  #13  
Antiguo 22-11-2008
Lizette Lizette is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Poder: 16
Lizette Va por buen camino
Gracias!!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Agregar a Combobox una propiedad de un objeto Raynel Varios 1 20-06-2008 06:06:27
ComboBox propiedad csDropDown grotero76 OOP 2 02-07-2007 09:49:54
¿Existe alguna propiedad que te diga el nº de Items de un ComboBox??. nuri Varios 7 11-08-2005 17:26:35
Ayuda con el evento OnClick de un ComboBox Striker Varios 1 15-06-2005 17:56:14
Propiedad de ComboBox gontxalo OOP 2 05-06-2005 00:52:56


La franja horaria es GMT +2. Ahora son las 18:03:39.


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