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