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;