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;