procedure TForm1.Button2Click(Sender: TObject);
var
vDocument: IHTMLDocument2;begin vDocument := WebBrowser1.Document as IHTMLDocument2;
if not Assigned(vDocument) then Exit;
vDocument.parentWindow.execScript(
'function $(id)'#13#10 +
'{'#13#10 +
' return document.getElementById(id);'#13#10 +
'}'#13#10 +
''#13#10 +
'$("editableDiv").focus();'#13#10 +
'$("editableDiv").innerText ="'+adoquery2.fieldbyname('jieshao').AsString+'";'#13#10 + //不能进行赋值
'$("btnG").click();'#13#10,
'javascript');
end;在js语句中,这个$("editableDiv").innerText,,,我试过了,只能进行单行文本的赋值,多行的不行,但是我想把数据库里面的备注赋值给 这个js变量,该怎么做啊?
(还有就是 ,如果把edit里面的文本赋值给它 就可以。如果用memo来给它赋值,,只有当memo里面只有一行文本的时候才可以,多行了就不行了,,该怎么解决啊)
var
vDocument: IHTMLDocument2;begin vDocument := WebBrowser1.Document as IHTMLDocument2;
if not Assigned(vDocument) then Exit;
vDocument.parentWindow.execScript(
'function $(id)'#13#10 +
'{'#13#10 +
' return document.getElementById(id);'#13#10 +
'}'#13#10 +
''#13#10 +
'$("editableDiv").focus();'#13#10 +
'$("editableDiv").innerText ="'+adoquery2.fieldbyname('jieshao').AsString+'";'#13#10 + //不能进行赋值
'$("btnG").click();'#13#10,
'javascript');
end;在js语句中,这个$("editableDiv").innerText,,,我试过了,只能进行单行文本的赋值,多行的不行,但是我想把数据库里面的备注赋值给 这个js变量,该怎么做啊?
(还有就是 ,如果把edit里面的文本赋值给它 就可以。如果用memo来给它赋值,,只有当memo里面只有一行文本的时候才可以,多行了就不行了,,该怎么解决啊)
解决方案 »
- delphi如何调用带多个参数(以空格分开)的DOS命令?
- lookupcombobox代码怎么写?急
- 怎样执行一个外部程序,看清楚问题再回答。
- 如何分解字符串
- dbgrideh 属性的问题!
- 在d5的quickreport中使用代码在一个band中建立一个qrlabel.谢谢!
- 500分求救!!!!!!!!!!
- 语法错误
- 在用C++Builder把以前写的程序改成ActiveForm时出现了与VCL有关的问题,如何解决?急急急满头大汗!
- 请问如何在TStringGrid或TDrawGrid的Cell中画图?
- 关于DLL中DataSet 问题,不知原因,是高手的请进.不是也可以进来看看.
- sql查询中,查询表达式是变量怎么赋值啊?
不能用