[Lizette]

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;