(Gast)
n/a Beiträge
|
TWebBrowser mit eigenen Buttons Scrollen
5. Jul 2003, 12:18
Hallo,
Delphi-Quellcode:
//Nach oben
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, -100);
end;
//Nach links
procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(-100, 0);
end;
//Nach unten
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +100);
end;
//Nach rechts
procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(+100, 0);
end;
Grüsse, Daniel
|
|
Zitat
|