使用twebbrowser 內的網頁按 enter 無法觸發? |
尚未結案
|
such
一般會員 發表:15 回覆:15 積分:6 註冊:2003-06-25 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
|
such
一般會員 發表:15 回覆:15 積分:6 註冊:2003-06-25 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
|
such
一般會員 發表:15 回覆:15 積分:6 註冊:2003-06-25 發送簡訊給我 |
我是使用 Delphi 7 內的 TWebBrowser 去設計的 ,難道真的有bug !??
是否有解決的方法!??
程式在 http://linux.kaoh.com.tw/~such/Project1.exe
原始碼在 http://linux.kaoh.com.tw/~such/web_delphi.zip
3Q啦^^
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
Hi such 你好:
這個問題我在網路上找了一下, 確實是TWebBrowser的一個Bug, 目前還找不到解答, 只建議安裝Third Party的元件
相關討論
http://216.101.185.148/scripts/isapi.dll/article?id=120710AA&article=3366518 http://www.mers.com/cgi-bin/mer.exe/EXECSEARCH?pageno=1&searchtext=WebBrowser+Enter&grouptext=Delphi&linktype=viewmsg&msgno=8737&boardno=590 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
such
一般會員 發表:15 回覆:15 積分:6 註冊:2003-06-25 發送簡訊給我 |
|
such
一般會員 發表:15 回覆:15 積分:6 註冊:2003-06-25 發送簡訊給我 |
|
Clarinet
高階會員 發表:9 回覆:97 積分:126 註冊:2002-05-08 發送簡訊給我 |
如下:
public { Public declarations } procedure MsgHandle(var Msg :TMsg; var Handled :Boolean); end; var Form1: TForm1; FOleInPlaceActiveObject :IOleInPlaceActiveObject; implementation {$R *.DFM} 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;GPS(全球衛星定位系統) http://www.allgps.com
------
GPS(全球衛星定位系統) http://www.allgps.com |
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |