scroll

procedure .scroll(x, y : integer); アラド戦記 RMT
var aion rmt
d : IHTMLDocument2; aion rmt
w : IHTMLWindow2;
begin
d := self.Document as IHTMLDocument2;
if Assigned(d) then w := d.parentWindow;
if Assigned(w) then w.scroll(x, y);
d := nil;
w := nil;
end;