Автоматический переход фокуса с TEdit на TEdit

← →
diabolik_krsk (2004-11-04 08:46) [0]

Уважаемые мастера. Вопрос следующий.

На форме лежит 3 и более компонента Edit. Мне необходимо произвести переход фокуса с одного эдита на другой при достижении текста в Edit определенной длинны.
Например: у меня есть номер 24:50:0400021:0032.
В результате у меня на форме 4 TEdit. В первый и второй должно входить по 2 символа, в третий - 7 символов, в четвертый - 4 символа.
Так вот как такое сделать??

← →
begin...end © (2004-11-04 08:52) [1]

TEdit.OnChange; Length; TWinControl.SetFocus ?

← →
diabolik_krsk (2004-11-04 09:20) [2]

А поподробней?? Кусок кода хоть можно??

← →
Fay © (2004-11-04 09:31) [3]

begin
ShowMessage("TEdit.OnChange; Length; TWinControl.SetFocus ?");
end;

> [2] diabolik_krsk (04.11.04 09:20)

procedure TMyForm.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) = 2 then
Edit2.SetFocus
end.

> [3] Fay © (04.11.04 09:31)

LOL

← →
diabolik_krsk (2004-11-04 11:45) [5]

Автоматический переход фокуса с TEdit на TEdit Найти похожие ветки