Cursor Position in TuniMemo

[mayusod]

is posible know the cursor position in a TuniMemo ???

 

Thanks

[Sherzod]

Hi,

 

Try:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniSession.AddJS('var el = document.getElementById("'+UniMemo1.JSName+'_id-inputEl"); val = el.value; alert(val.slice(0, el.selectionStart).length)');
end;

Best regards!

[mayusod]

Thanks, Delphi Devoloper

 

[Tokay]

Up. I need to get caret pos, the line where currently text cursor located. Does it possible to request this info to the back side?

[Sherzod]

Hello,

Yes, the forum has solutions if I'm not mistaken.

[Tokay]

Sorry, I could not found it. I already saw 100+ topics, but have no success.

I've found my own old topic:

With link here:

But I don't understand how it could help me.

I need this behaviour: push a button on the form, do request to a TUniMemo and get the line where the text cursor curently located in the TUniMemo. Thank you!

[Sherzod]

25 minutes ago, Tokay said:

I need this behaviour: push a button on the form, do request to a TUniMemo and get the line where the text cursor curently located in the TUniMemo. Thank you!

For example, one possible solution.

1. 

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  with UniMemo1.JSInterface do
    JSAddListener('blur', 'function(){ajaxRequest(this, "_blur", ["cpos="+this.inputEl.dom.selectionStart])}');

end;

2. 

procedure TMainForm.UniMemo1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
  if EventName = '_blur' then
    (Sender as TUniMemo).CustomAttribs.Values['cpos'] := Params.Values['cpos'];

end;

3. Usage:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  ShowMessage(UniMemo1.CustomAttribs.Values['cpos'])
end;

 

[Tokay]

Thank you! Your solution works as needed!