全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1387
推到 Plurk!
推到 Facebook!

有關TWebBrowser的問題....急....

 
刁一
一般會員


發表:10
回覆:22
積分:6
註冊:2002-07-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-07-31 17:04:24 IP:211.74.xxx.xxx 未訂閱
有問題請教Delphi Char上的各位高手們  1. 在WebBrowser所瀏覽的網頁中的輸入格中按下ENTER, 無法去執行網頁中所預設的按鍵耶!(我在FORM上只有兩個Panel, 一個放TWebBrowser, 另一個放一個BUTTON, 然後按BUTTON去執行WebBrowser1.Navigate('http://tw.yahoo.com');) 2. 有人有使用TMLRWebBrowser這個TWebBrowser加強的元件嗎? 為什麼沒辦法在所瀏覽的網頁中的輸入格中打資料啊?     煩請各路高手們, 幫小弟解解....十萬分的感謝....     TMLRWebBrowser可到以下位置來抓....  http://211.74.2.81:57294/Joy2/webcontrol.zip
Clarinet
高階會員


發表:9
回覆:97
積分:126
註冊:2002-05-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-08-02 18:17:38 IP:218.32.xxx.xxx 未訂閱
//宣告一個程序 procedure MsgHandle(var Msg :TMsg; var Handled :Boolean); //宣告一個變數 var FOleInPlaceActiveObject :IOleInPlaceActiveObject; //程序內容 procedure TForm1.MsgHandle(var Msg :TMsg; var Handled :Boolean); var iOIPAO :IOleInPlaceActiveObject; Dispatch :IDispatch; begin if WebBrowser1=nil then begin Handled :=False; Exit; end; Handled :=(IsDialogMessage(WebBrowser1.Handle, Msg)=True); if (Handled) and (not WebBrowser1.Busy) then begin if FOleInPlaceActiveObject=nil then begin Dispatch :=WebBrowser1.Application; if Dispatch<>nil then begin Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO); if iOIPAO<>nil then FOleInPlaceActiveObject :=iOIPAO; end; end; end; if FOleInPlaceActiveObject<>nil then if ((Msg.message=WM_KEYDOWN) or (Msg.Message=WM_KEYUP)) and ((Msg.wParam=VK_BACK) or (Msg.wParam=VK_LEFT) or (Msg.wParam=VK_RIGHT)) then {什麼事也不做} else FOleInPlaceActiveObject.TranslateAccelerator(Msg); end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage :=MsgHandle; end; procedure TForm1.FormDestroy(Sender: TObject); begin FOleInPlaceActiveObject :=nil; end; procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://tw.yahoo.com/'); end; 應該是您要的結果。 GPS(全球衛星定位系統) http://www.allgps.com
------
GPS(全球衛星定位系統)
http://www.allgps.com
andersonhsieh
版主


發表:33
回覆:531
積分:439
註冊:2002-06-10

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-08-02 21:24:18 IP:211.23.xxx.xxx 未訂閱
會不會你BUTTON的DEFAULT設為TRUE,如是請將甚設為FALSE @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@
EBILLS2003
一般會員


發表:0
回覆:2
積分:0
註冊:2004-04-22

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-04-26 09:58:13 IP:218.79.xxx.xxx 未訂閱
用了上面的方法:Enter 还是没有反映。 还有什么办法??? HTTP://INTOIT.VICP.NET:8080
------
HTTP://INTOIT.VICP.NET:8080
EBILLS2003
一般會員


發表:0
回覆:2
積分:0
註冊:2004-04-22

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-04-26 13:56:57 IP:218.79.xxx.xxx 未訂閱
我原来是BackSpace键不能用,加了上面的代码后,Enter键就失效。 我是用Delphi7开发的,这是为什么???有什么好的办法解决没有?? HTTP://INTOIT.VICP.NET:8080
------
HTTP://INTOIT.VICP.NET:8080
系統時間:2024-05-04 4:28:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!