[Отклонение] [Android] Не меняется KeyboardType при переходе на следующий TEdit

[krapotkin]

На форме два TEdit

KeyboardType у первого = NamePhonePad

у второго = Alphabet

 

при переходе фокуса клавиатура остается такой, какая была при входе в первый из Edit'ов

как принудительно поменять тип клавиатуры?

Изменено 9 июля, 2015 пользователем krapotkin

[VladimirS]

п.1 Смотреть исходники - как устанавливается KeyboardType

п.2 Менять исходники чтобы при смене контрола менять KeyboardType

[krapotkin]

этот ответ можно вынести на главную страничку и закрыть все темы форума разом )))

[enatechno]

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  CheckVK(Edit1);
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  CheckVK(Edit2);
end;

procedure TForm1.CheckVK(const aEdit: TEdit);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) and
    (TVirtualKeyboardState.Visible in KeyboardService.VirtualKeyboardState) then
  begin
    KeyboardService.HideVirtualKeyboard;
    KeyboardService.ShowVirtualKeyboard(aEdit);
  end;
end;
 

Изменено 11 июля, 2015 пользователем enatechno

[enatechno]

Чтоб лишний раз не менялась, добавил проверку на текущий тип

  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) and
    (TVirtualKeyboardState.Visible in KeyboardService.VirtualKeyboardState) and
    (aEdit.KeyboardType <> FCurVKType) then
  begin
    KeyboardService.HideVirtualKeyboard;
    KeyboardService.ShowVirtualKeyboard(aEdit);
    FCurVKType := aEdit.KeyboardType;
  end;

tstVK.zip

Изменено 11 июля, 2015 пользователем enatechno

[krapotkin]

спасибо за ответы, но

этот метод (спрятать/показать клавиатуру) я перед этим уже испробовал сам

нужного эффекта по-прежнему нет...

 

вообще чертовщина.

 

если KeyboardType = alphabet то у Edit есть KeyDown и KeyUp

если KeyboardType = numpad то только KeyDown, в KeyUp она уже не приходит

при этом сама клава, есс-но, остается как была alpha

 

Если в Edit1.OnKeyDown сделать Edit2.SetFocus, то срабатывает Edit2.OnKeyDown, даже если Key:=0 !!!!

O_O

Изменено 13 июля, 2015 пользователем krapotkin

[krapotkin]

Подведу итог

После всех изысканий выяснилось, что не все йогурты клавиатуры одинаково полезны.

Стандартная клава Google все делает правильно, свайп тоже

Косяк KeyboardType проявлялся только на моей предустановленной в телефоне клавиатуре

Остальные выявленные проблемы - более стойкие и не зависят от клавиатуры.

 

Благодарю всех за участие и помощь

[enatechno]

Вы хотите менять фокус/тип клавиатуры по нажатию Enter на клавиатуре? 

[krapotkin]

да, это я сделал через OnKeyUp

[ENERGY]

editbox.ResetFocus;
editbox.SetFocus;

В OnClick event.

Изменено 6 мая, 2017 пользователем ENRGY