WebBrowser - OnClick event for " Web Page - History back.go(-1)" Problem
Posted on 2004-10-28
Below is information that I have tried, but has not worked.
( Mention, everything works like it suppose to in "IE" but when used
In code like what I am doing here, it does not work, )
I have done this to the link.
I have done this in code
I receive an "HTML Page Error" Method not supported.
Within the page itself, not Delphi Error.
So I went in and changed the code in the page ( It is a CGI page, so I had to do some research on how to implement it.
And it is just like regular HTML for <form>'s and <input Type> of parameters )
<INPUT type="Submit" NAME="SpiderHistory" value="Click here to go back" onClick="history.back(-1)" STYLE="color: #000080; border-style: ridge" >
The above code, works extremely well, and gives the " History - Back " Button a new look, A lot better feel.
And when using it in " IE " it works like it suppose too. ( The page pulls information from a MySQL Database, This goes to the Last Record in the MySQL Database, that I was at )
BUT?? When used in the "WebBrowser" Project,( If I click on the link myself, with "MouseClick" then it works like it suppose too ) but with it placed on the "OnDocumentComplete" it is not going back properly. Instead it is going " All the way " Back to the beginning of the page.
Instead of where I "Last Was" ( so it suppose to go back to the last record, instead It is going back to the <top> of the Table )
This is the code that I am using to implement the "OnClick" Behavior in Delphi's WebBrowser (EmbeddedWB)
procedure TCFF_Spider.AdminWebDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
SpiderSubmit : IHTMLInputElement;
MyDocument : IHTMLDocument3;
MyDocument := AdminWeb.Document as IHTMLDocument3;
if assigned(MyDocument) then
SpiderSubmit := (MyDocument.getElementsByName('SpiderHistory').item(0,'')as IHTMLInputElement);
if assigned(SpiderSubmit) then
Any idea's. on Why? This is not working correctly, please help