IE Programming
Jackson_GZ
这个作者很懒,什么都没留下…
展开
-
change the scrollbar colors of TWebBrowser?
A page must be already loaded into TWebBrowser}{Eine Seite muss bereits in TWebBrowser geladen sein}//Example//Beispielprocedure TForm1.Button1Click(Sender: TObject);begin with WebBrowser1 do begin转载 2006-02-01 00:02:00 · 934 阅读 · 0 评论 -
fill out fields in a TWebBrowser by Drag&Drop?
{ This example shows how to fill out fields in your webbrowser by dragging the content of Label1 to a field of your webbrowser}{ Mit diesem Beispiel kann der Inhalt von Label1 per Drag & Drop in d转载 2006-02-01 00:09:00 · 1072 阅读 · 0 评论 -
...append HTML Text to a TWebbrowser Document?
http://www.swissdelphicenter.ch/en/showcode.php?id=2148{1. ----------------------------------------------------------------}uses MSHTML;procedure TForm1.Button1Click(Sender: TObject);var Range:转载 2006-01-31 23:12:00 · 1094 阅读 · 0 评论 -
...Invoke Hidden Commands in the TWebBrowser
// The following codes demonstrates an innovative way to invoke hidden// commands to show modal dialogs such as "Add To Favorite" dialog,// "Import/Export Wizard" dialog in your WebBrowser-based appli转载 2006-01-31 23:13:00 · 935 阅读 · 0 评论 -
execute a Javascript function in a Webbrowser/ IE Document?
uses MSHTML_TLB, SHDocVw, ShellAPI;// function to execute a script functionfunction ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;var win: IHTMLWindow2; Olelanguage:转载 2006-01-31 23:59:00 · 1519 阅读 · 0 评论 -
scroll TWebBrowser with own buttons?
// Scroll upprocedure TForm1.Button1Click(Sender: TObject);begin WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, -100);end;// Scroll leftprocedure TForm1.Button3Click(Sender: TObject);begin转载 2006-02-01 00:08:00 · 1012 阅读 · 0 评论 -
post form data with TWebBrowser?
procedure TForm1.Button1Click(Sender: TObject);var i: Integer; EncodedStr: string; Header: OleVariant; Post: OleVariant;begin // Make the post string URL encoded EncodedStr := name=SwissDelphiC转载 2006-02-01 00:08:00 · 1058 阅读 · 0 评论 -
hide the scrollbars of TWebBrowser?
{Eine Seite muss bereits in TWebBrowser geladen sein}{A page must be loaded into TWebBrowser}procedure TForm1.Button1Click(Sender: TObject);begin WebBrowser1.OleObject.Document.Body.Style.OverflowX转载 2006-02-01 00:03:00 · 1008 阅读 · 0 评论