Не могу установить каретку ввода в Android

[krapotkin]

Android

Seattle

 

procedure TDriverProfile.ePhoneEnter(Sender: TObject);
var
  e:TEdit;
begin
  e:=(Sender as TEdit);
  e.SelStart := Length(e.Text)-3;
  e.SelLength := 3;
end;

ничего не происходит ((

 

[Равиль Зарипов (ZuBy)]

Что-то подобное может

  Edit1.CaretPosition

[krapotkin]

пробовал ((

[Равиль Зарипов (ZuBy)]

пробовал ((

для Windows отработал вот такой вариант

procedure TForm9.Edit1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  Edit1.CaretPosition := Edit1.Text.Length;
end;

способ правильный только нужно вызывать его после того как нажали на компонент и он получил фокус, OnTyping тоже отработал, только первый символ все равно пропустил в месте предыдущего расположения каретки

Изменено 25 сентября, 2015 пользователем ZuBy

[krapotkin]

т.е. причина просто в onEnter ?

[Равиль Зарипов (ZuBy)]

т.е. причина просто в onEnter ?

да

[krapotkin]

тогда вообще непонятно для чего все так странно

мне ведь нужно, чтобы каретка переместилась только один раз, когда я впервые попал в edit.

если использовать для этого OnMouseUp, то редактировать текст в edit станет совершенно невозможно,

остается припиливать явный костыль типа полей FCurEdit и FFirstClick