Propiedad onclick de ComboBox

[Lizette]

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..

[donald shimoda]

Empezado por Lizette

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?

[Lizette]

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..

[ContraVeneno]

en el evento "OnExit" de tu combo podrías poner cualquiera de estas dos opciones:

If trim(Combo.Text) = '' then Combo.SetFocus;

If Combo.ItemIndex = -1 then Combo.SetFocus;

[Lizette]

Gracias!!