OnTap не меняет положение курсора

[Rokweb]

Задача: при тапе по тексту в Memo определить текущее положение курсора. Реализовать не получается, ибо меняется положение курсора (выяснил, путем экспериментов) - после онклик и онтап и т.п., а в указанных событиях - остается старое положение курсора, до его перемещения. Как быть в данной ситуации?

 

P.S. Для экспериментов просто ввел в OnTap: ShowMessage(IntToStr(Memo1.SelStart));

 

P.P.S. Действие происходит на Android.

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

[enatechno]

uses
  System.Threading;

//....

procedure TForm1.Memo1Tap(Sender: TObject; const [Ref] Point: TPointF);
begin
  TTask.Run(procedure
    begin
      TThread.Synchronize(nil,
        procedure
        begin
          ShowMessage(IntToStr(Memo1.SelStart));
        end);
    end);
end;

 

[Rokweb]

1 час назад, enatechno сказал:

uses
  System.Threading;

//....

procedure TForm1.Memo1Tap(Sender: TObject; const [Ref] Point: TPointF);
begin
  TTask.Run(procedure
    begin
      TThread.Synchronize(nil,
        procedure
        begin
          ShowMessage(IntToStr(Memo1.SelStart));
        end);
    end);
end;

 

Большое спасибо!