переключение между компонентами tedit

[Алексей_2012]

И снова здравствуйте! Теперь у меня возник вопрос такого плана, на него гугл ответить не смог, потому вся надежда на вас, господа программисты, каким образом возможно реализовать переключение фокуса между однострочными полями редактирования? То есть курсор стоит в одном поле, а перевести его надо в поле выше или ниже, ну или левее-правее

[FaTaL]

SetFocus Вам в помощь. Или опишите задачу яснее.

[Аватар]

FindNextControl в помощь, но не выше или ниже, а по TabOrder

[Алексей_2012]

Ребят, посмотрите мою тему с кроссвордом, думаю станет яснее, ссыль пока не могу скинуть, так как сижу с телефона

[doktor255]

Смысл понятен, зачем тебе это нужно. В статических компонентах замучаешься перечислять эдиты. В динамике это делается без-проблемно по индексу массива. Ну а общее решение озвучили выше. Поясняю.

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

[Алексей_2012]

А возможно ли использовав код через sender определить порядковый номер компонента на форме, или определить текущее местоположение фокуса, то есть в каком из Tedit находится курсор?

if  TEdit(Sender).MaxLength=1 then TEdit(Sender+1).Setfocus;

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

[doktor255]

Теория переключения последовательно понятна из этого кода

procedure TForm1.Edit1Change(Sender: TObject);
var AEdit: TEdit;
AComponent: TComponent;
n: integer;
begin
AEdit := (Sender as TEdit);
n := AEdit.Tag;
if Length(AEdit.Text) = 1 then begin
inc(n);
AComponent := FindComponent('Edit' + IntToStr(n));
TEdit(AComponent).SetFocus;
end;

Исключения не обрабатывал. Присвой всем эдитам этот обработчик и пронумеруй Edit-ы по свойству Tag. Тебе ещё понадобится обработать стирание текста, и переключение фокусов стрелочками клавиатуры. Говорил же напиши в ICQ, помогу.
P.S. Ещё один вариант решения задачи, это присвоить всем компонентам Enableb := false, чтоб USER не мог выделять ячейки, и поставить обработчики клика по Edit-ам c номерами вопросам. По клику открывать окно с полем ввода ответа, подсвечивать кнопку подтверждения ответа только при совпадении длины ответа юзера количеству ячеек, и при нажатии OK делать автозаполнение ячеек.