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

[MoonLit]

имеется три поля Edit, в каждое поле вводится по 6 символов.
проблема в том, что не могу сообразить как осуществить переход от одного поля к следующему при окончании ввода этих 6 символов. В идеале хотелось бы чтобы все работало так же как при вводе серийника в хороших прогах...чтобы при заполнении первого поля автоматически активировалось второе поле...и т.д. помогите, плиз!

[Квэнди]

onchange or onkeypress or... length(editX.text)...

[Sibedir]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Edit1.SelStart > 4 then Edit2.SetFocus;
end;

[Stilet]

Еще можно так:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if length(TEdit (sender).Text)=4 then
 FindNextControl(Twincontrol(sender),true,true,false).SetFocus;
end;

Это событие сделать одним для всех нужных эдитов, и тогда они будут переключаться в Tab-порядке

[mihali4]

if Length(Edit1.Text)=6 then
Edit2.SetFocus;
Так и не понял, почему предыдущие ораторы использовали критерий=4 !?
Ведь

имеется три поля Edit, в каждое поле вводится по 6 символов

[Sibedir]

Так и не понял, почему предыдущие ораторы использовали критерий=4 !?

Да, в варианте с KeyPress надо поставить 5 (событие срабатывает до того как меняется содержимое Edit'а), а в варианте с KeyUp действительно 6.
Чтобы загладить вину, добавлю

procedure TForm1.Edit1Change(Sender: TObject);
var
  s: String;
  i: Integer;
begin
  i := Edit1.SelStart;
  s := Edit1.Text;
  if Length (s) > 6 then SetLength (s, 6);
  Edit1.Text := s;
  Edit1.SelStart := i;
end;

[Stilet]

почему предыдущие ораторы использовали критерий=4 !?

Для примера

[MoonLit]

Спасибо вам огромное! =)
--------------------------
А можно ли осуществить нечто подобное, если имеются поля не TEdit, а TDBEdit ? (при редактировании данных таблицы БД)

[mihali4]

А какая разница? Конечно, можно...

[MoonLit]

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