Добрый день!
Есть кнопка uniButton1
Производится импорт из Clipboard.
После импорта текст в UniMemo1 показывается правильно но:
UniMemo1.text не выдает текст полностью.
UniMemo1.Lines.Count выдает значение '0'.
procedure TMainForm.UniFormCreate(Sender: TObject);
begin
with uniButton1, JSInterface do
begin
JSCode('async function uniPaste(input) { '+
' const text = await navigator.clipboard.readText(); '+
' input.setValue(text); '+
' };');
JSAddListener('click', JSFunction('sender','uniPaste('+ uniMemo1.JSName+'); '));
end;
end;
Спасибо!