2009年8月21日金曜日

2009年8月10日月曜日

scroll

procedure .scroll(x, y : integer); RMT 携帯
var
d : IHTMLDocument2;
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;