[Lizette]

Hola, tengo un combobox validado, de tal manera q si presiona enter o tabulador y no hay nada dentro del combo, se anula la tecla y se queda dentro del combo, si el combo contiene algo, se brinca al siguiente edit con tabulador o enter. El caso es q con enter si funciona pero con tabulador no..

Código Delphi [-]

procedure TfrmProductoAdd.ComboClasKeyPress(Sender: TObject;
  var Key: Char);
begin
if (Length(ComboClas.Text)=0) and (Key<>Char(13))then
   Key:=Char(0);
 if ((Key=Char(13)) and (Length(ComboClas.Text)<>0)) then
 begin
  Key:=Char(0);
  EditLab.SetFocus;
 end;
end;

procedure TfrmProductoAdd.ComboClasKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Length(ComboClas.Text)=0) and (Key<>9)then
   Key:=0;
 if ((Key=9) and (Length(ComboClas.Text)<>0)) then
 begin
  Key:=0;
  EditLab.SetFocus;
 end;  
end;