【结帖】求救!这段DELPHI代码在X3如何写?

565118680

WebBrowser1.oleobject.Document.body.Scroll := 'no';

alang

你按照下面代码执行一下看看，更多请参考 http://wiki.justep.cn/ObjectHelper

var
  o: TObject;
begin
  o := ObjectHelper.GetPropertyValue(WebBrowser1.oleobject, 'Document', []);
  o := ObjectHelper.GetPropertyValue(o, 'body', []);
  o := ObjectHelper.SetPropertyValue(o, 'Scroll', [], 'no');
end;

alang

不好意思，刚才弄错了，应该是接口，不是对象，参考 http://wiki.justep.cn/DispatchHelper

var
  o1, o2: Object;
  i: System.DispatchHelper;
begin
  i := System.DispatchHelper.Create(WebBrowser.oleobject);
  o1 := i.PropertyGet('Document', []);
  i := System.DispatchHelper.Create(o1);
  o2 := i.PropertyGet('Body', []);
  i := System.DispatchHelper.Create(o2);
  i.PropertyPut('Scroll', ['no']);
  o2 := nil;
  o1 := nil;
end;

zfang

楼主，还有问题吗？

zfang

由于楼主长期未反馈，先结帖！
有问题请重新开帖！