UniHTMLMemo - insert text at cursor position

[rhennink]

HI,

 

 

We would like to insert a string (from a variable) at the current cursor-position of the UniHTMLMemo.

 

How do we do that??

 

Richard

 

[Sherzod]

Hi,

 

Try:

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  s: string;
begin
  s := 'something';
  UniSession.AddJS(UniHTMLMemo1.JSName + '.insertAtCursor("'+ s +'")');
  // or - UniSession.AddJS(UniHTMLMemo1.JSName + '.insertAtCursor("'+ s +'" + " ")');
end;

Best regards.

[rgreat]

UniSession.AddJS(UniHTMLMemo1.JSName + '.insertAtCursor("'+ s +'")');

or

UniSession.AddJS(UniHTMLMemo1.JSName + '.insertAtCursor('+ StrToJS(s) +')');

?

[Sherzod]

Yes,

Use this:

UniSession.AddJS(UniHTMLMemo1.JSName + '.insertAtCursor('+ StrToJS(s) +')');

[M.Ammar]

On 12/12/2018 at 10:38 PM, Sherzod said:

Yes,

Use this:

UniSession.AddJS(UniHTMLMemo1.JSName + '.insertAtCursor('+ StrToJS(s) +')');

Hi 

I know it is an old post but I have 2 questions

1- how to move the Cursor to the end of the document as I want to add to the end of the old text Or another way to add to the end;

2- StrToJS is giving error so iam using the other way ("'+ s +'") what do I add in the uses list to make it work?

regards and thanks for help

[Sherzod]

Hi,

2 hours ago, M.Ammar said:

1- how to move the Cursor to the end of the document as I want to add to the end of the old text Or another way to add to the end;

UniHTMLMemo1.Lines.Add('add to the end...'); ?

 

2 hours ago, M.Ammar said:

 2- StrToJS is giving error so iam using the other way ("'+ s +'") what do I add in the uses list to make it work?

Can you make a simple testcase or provide the code?

[Ronbral]

Add to your Uses list:

Uses ExtPascalUtils;