Edit. Последовательный переход...

[Stilet]

А как делаешь?

[mihali4]

Сообщение от MoonLit

у компонента типа ТDBEdit нету свойства Text, и чем оно наменяется я не знаю, точнее не могу понять.

Зато у него других свойств "навалом"

procedure TForm2.DBEdit1Change(Sender: TObject);
begin
if Length(DBEdit1.Field.AsString)>=6 then
DBEdit2.SetFocus;
end;

Только нужно флажок какой-нибудь еще приделать, а то фокус будет скакать, как ненормальный

Сообщение от D@rk M@k

У него есть такое свойство!

Это свойство есть у предка - TMaskEdit, но не у ТDBEdit.

[D@rk M@k]

У него есть такое свойство!

[MoonLit]

Сообщение от mihali4

Только нужно флажок какой-нибудь еще приделать, а то фокус будет скакать, как ненормальный

а как это сделать не подскажите?!

[mihali4]

Сообщение от MoonLit

а как это сделать не подскажете?!

Ну, например, объявим глобальную переменную-флаг MYFLAG: BOOLEAN.
Этот оператор - MYFLAG:=FALSE; добавим в конец приведенного обработчика и в обработчик события создания формы.
А в обработчике события DBEdit1KeyDown напишем наоборот - MYFLAG:=TRUE;
И немного изменим нашу строку
if MYFLAG and (Length(DBEdit1.Field.AsString)>=6) then...
Все. Должно работать...

[MoonLit]

эх, а все равно не работает...
ну да и ладно...
Спабибо, mihali4.

[mihali4]

Сообщение от MoonLit

эх, а все равно не работает...
ну да и ладно...

Да нет, надо уж добить...
D@rk M@k оказался совершенно прав - свойство предка вынесено в паблик и им можно пользоваться.
Так что вместо
if MYFLAG and (Length(DBEdit1.Field.AsString)>=6) then
делаем
if MYFLAG and (Length(DBEdit1.Text)>=6) then
и все работает.
А спасибо нужно D@rk M@k сказать!
(а я вот опростоволосился )

[MoonLit]

не выходит...
Делаю вот так...

procedure TForm.FormCreate(Sender: TObject);
begin
  Table1.Active:=True;
  MYFLAG:=False;
end;

procedure TForm.DBEdit1Change(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if MYFLAG AND (Length(DBEdit1.Text)>=2) then DBEdit2.SetFocus;
  MYFLAG:=False;
end;

procedure TForm.DBEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  MYFLAG:=True;
end;

но он опять таки "ругается" и выдает сообщение "invalid input value. use escape key to abandon changes." (при нажатии на любую клавишу или кнопку.)

[mihali4]

"invalid input value. use escape key to abandon changes."

Похоже, что к DBEdit1 подцеплено числовое поле, а вы пытаетесь ввести букву. Во всяком случае, вам явно говорится о том, что введенное вами в DBEdit1 конфликтует с типом поля...
Проверил у себя - все отрабатывает на ура.
Кстати, к рассматриваемому вопросу эта ошибка отношения не имеет. Это ваши проблемы при вводе.
На всякий "пожарный":

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
if flag then
if Length(DBEdit1.Text)>=6 then
DBEdit2.SetFocus;
flag:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
flag:=False;
end;

procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
flag:=True;
end;

[MoonLit]

понятно...
но, в этом случае, всетаки мне необходим ввод букв (латиница в верхнем регистре). Можно ли это же осуществить с буквами? может вернуть это:

procedure TForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    'A'..'Z': ;
    #8 : ;
  else Key :=Chr(0);
  end;
end;

и еще как вариант, может ли это быть из-за того, что для данного поля установлена маска ввода (AA;1;_)?
Вот убрала масску ввода, стало работать, но почему-то в обход KeyPress вводятся и цифры и кирилица...