Want simple JS demo

[Kristy]

That also not work. IW 14 method also not work, everything not work!

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
RegisterCallBack('TZOS',
procedure (aParams: TStrings)
begin
IWEdit1.text := aParams.Values['tn'];
end
);
end;

procedure TIWForm1.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList);
var
TZJS_str : string;
begin
TZJS_str := 'function TZoffset(){'+ #13#10
+'var d = new Date();'+ #13#10
+'var tn = d.getTimezoneOffset();'+ #13#10
+'return tn;'+ #13#10
+'}';
WebApplication.CallBackResponse.AddJavaScriptToExecute('ajaxCall("TZOS", "&tn=" + TZJS_str)');
end;

---

Not work...

procedure TIWForm1.IWButton1AsyncClick(Sender: TObject; EventParams: TStringList);
var
TZJS_str : string;
begin
TZJS_str := 'function TZoffset(){'+ #13#10
+'var d = new Date();'+ #13#10
+'var tn = d.getTimezoneOffset();'+ #13#10
+'document.getElementById("IWEDIT1").innerHTML = tn;'+ #13#10
+'}';

WebApplication.CallBackResponse.AddJavaScriptToExecute(TZJS_str);
end;