當網頁內容有Script:window.close指令作用時，就會有error產生 要如何攔截這動作呢??

引言: 當網頁內容有Script:window.close指令作用時，就會有error產生 要如何攔截這動作呢??

您是設計.HTMl網頁,還是用Delphi寫ISAPI? ～～～Delphi K.Top討論區站長～～～

站長大人您好:我試著仿用delphiwww的方法來製做多頁瀏覽器，但發現如果網頁的內容有 SCRIPT:window.close() 的指令時，會有錯誤產生，所以想請教如何攔截這動作，再想如何處理，謝謝您，感激不盡

在webbrowser的onbeforenavigate2 event上判斷 var   s:string; begin   s:=url;   if pos(uppercase('window.close()'),uppercase(s))>0 then   begin      Form1.Timer1.Enabled:=true;  //設定一個timer啟動判斷是否close      cancel:=true;      exit;           end; ....其他狀況

引言: 站長大人您好:我試著仿用delphiwww的方法來製做多頁瀏覽器，但發現如果網頁的內容有 SCRIPT:window.close() 的指令時，會有錯誤產生，所以想請教如何攔截這動作，再想如何處理，謝謝您，感激不盡

謝謝 delphiwww 大大，我先試試看，再測測是否有其他問題^^

to delpiwww 大大，發現一個問題，就是如果網頁內容有 form 而內容如下時:<input type="button" value="關閉此頁" ('eg');" id=button1 name=button1>會有錯誤訊息。請問該如何處理呢?謝謝!

那你可以改成window.close就好了

請教大大，form1.timer1 的 onTimer 要如何處理??謝謝!!

用過大大寫的多頁瀏覽器，真的很好用，以下是整理的出來的問題：一、在網頁中如果有form無法直接按enter送出。二、在textarea中輸入文字時也無法按enter換行。不曉得應如何處理???謝謝!

那要看你如何關閉那一頁

引言: 請教大大，form1.timer1 的 onTimer 要如何處理??謝謝!!

請問Delphi實例是不是大大寫的書?在那可買得到??另想請問在那可找到有關 message 控制的書，謝謝。

如果網頁的原始內容是用form post 的方式，當使用者按下 submit 後執行呢?
引言:那要看你如何關閉那一頁

你是說Delphi程式設計實例嗎? 到www.hot.net.tw可以訂書 message你可能需要看winapi相關的書籍 假如你可以看得懂程式,去delphibbs資料下載 下載大陸的電子書,還不錯

引言: 請問Delphi實例是不是大大寫的書?在那可買得到??另想請問在那可找到有關 message 控制的書，謝謝。

可不可以舉一個範例(post close的方式) 其實你可以用debug去觀察一下網址的內容

引言: 如果網頁的原始內容是用form post 的方式，當使用者按下 submit 後執行呢?
引言:那要看你如何關閉那一頁

我的問題是，當網頁內容有＜input type=button window.close('eg)＞時，執行後會先跳出一個視窗問您要不要關閉，如果選”是”就會有ole的錯誤產生。 另謝謝大大，我先去買一些書（您的大作）看，也希望能解決定問題

用ApplicationEvents元件,然後在onmessage上寫 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); //var mPoint : TPoint; begin if (WebBrowser1.Handle=Msg.Hwnd) and (Msg.Message = WM_CLOSE) then begin msg.message:=0; //清除close; 寫入你的判斷動作 end else begin //鎖掉ctrl A,ctrl c,右鍵,順便copy給你 if ischild(WebBrowser1.Handle,Msg.Hwnd) then begin if ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) or ((Msg.Message = WM_keydown) and (GetKeyState(vk_Control) < 0) and ((Msg.wParam=ord('A')) or (Msg.wParam=ord('a')) or (Msg.wParam=ord('C')) or (Msg.wParam=ord('c')))) then msg.message:=0; end; end; end;