Как сделать переход на поле которое Disabled??

[DeveloPerchik]

Здравствуйте!
Есть довольно простая задача, которая что-то никак не решается нормальными способами. Есть 3 поля - Field1,Field2,Field3. Работают так - в поле Field1 пользователь вводит какие-то данные, на событие Field1.OnExit стоит проверка - если данные соответствуют некоему значению, то Field3.SetFocus, если не соответствуют то Field2.SetFocus. Вроде всё просто и работает нормально. Но, по-умолчанию (до ввода данных в поле Field1) нужно, чтобы Field2 было Disabled! И тут возникает проблема тк по событию Field1.OnExit курсор перепрыгивает к Field3 до проверки события OnExit и кода Field2.Enabled:=True и Field2.SetFocus, то есть курсор в любом случае переходит к Field3!
Ставить код на событие OnChange нельзя.
Кто знает как это порешать?

[DeveloPerchik]

Field1.OnExit происходит по нажатию Tab. Нужно, чтобы после нажатия Tab в Field1 в событии OnExit при выполнении некоего условия открывалось поле Field2.Enabled:=True и в него ставился фокус.
Как это сделать???

[Vova777]

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

Field1.OnExit происходит по нажатию Tab. Нужно, чтобы после нажатия Tab в Field1 в событии OnExit при выполнении некоего условия открывалось поле Field2.Enabled:=True и в него ставился фокус.
Как это сделать???

как я вас понял, нужно так:

Field2.Enabled:=True; //возможно ошибка в последовательности этих команд
Field2.SetFocus;

или дайте посмотреть фрагмент исходника

еще можно попробовать так:

if ({условие при котором нужно вернуться к Field2}) and (Field3.CanFocus = true) then
begin
  Field2.Enabled:=True;
  Field2.SetFocus;
end;

[DeveloPerchik]

По логике события должны бы были происходить так:
Field.Exit - Field.OnExit - FocusNextControl
а происходят так:
Field.Exit - FocusNextControl - Field.OnExit
что вообще-то похоже на баг.

Решено через OnKeyPress key=tab.

[Аватар]

Решено через OnKeyPress key=tab.

Не все так просто, выход из поля не только по Tab возможен

[DeveloPerchik]

А как ещё ?

[Аватар]

Имел ввиду мышинные выходы. А чем не устраивает

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if условие then begin
    Edit2.Enabled:=True;
    ActiveControl:=Edit2;
  end;
end;

При переходе по табу Edit3.OnEnter (если он есть) не отработает 100% и фокус в Edit2 будет

[Arigato]

У меня так:

  Edit2.Enabled := True;
  Edit2.SetFocus;

Все прекрасно работает.