ericlwl
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:3 回覆:5 積分:1 註冊:2003-10-26
發送簡訊給我
|
我利用TCppWebBrowser做了一個簡單的瀏覽器,但在瀏覽網頁時遇到以下問題: 在以下的兩種情形"Enter"鍵好像失效了(用IE都可以動作)
1.在搜尋網站輸入完keyword之後按Enter無法自動執行搜尋
2.在Webmail中輸入信件內容時,按Enter無法跳行 不知是哪裡出了差錯
|
RaynorPao
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/48c9d66ac5033_KTOP-%E5%8C%85%E5%AD%90%28%E7%9C%BC%E9%8F%A1%29-Q-100x100.jpg) 發表:139 回覆:3622 積分:7025 註冊:2002-08-12
發送簡訊給我
|
引言:
我利用TCppWebBrowser做了一個簡單的瀏覽器,但在瀏覽網頁時遇到以下問題: 在以下的兩種情形"Enter"鍵好像失效了(用IE都可以動作)
1.在搜尋網站輸入完keyword之後按Enter無法自動執行搜尋
2.在Webmail中輸入信件內容時,按Enter無法跳行 不知是哪裡出了差錯
ericlwl 你好:
這是 TCppWebBrowser 元件已知的問題,只要加入以下的程式碼,應該就可以修
正這個問題了
< class="code">
// Unit1.h
class TForm1 : public TForm
{
__published: // IDE-managed Components
// 略...
private: // User declarations
void __fastcall IEMessageHandler(tagMSG &Msg, bool &Handled);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
}; // Unit1.cpp
IOleInPlaceActiveObject *OleInPlaceActiveObject=NULL;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Application->IEMessageHandler;
}
void __fastcall TForm1::IEMessageHandler(tagMSG &Msg, bool &Handled)
{
if(Msg.message==WM_RBUTTONDOWN || Msg.message==WM_RBUTTONDBLCLK)
{
Handled=true;
}
else if(CppWebBrowser1 && (Msg.message==WM_KEYDOWN || Msg.message==WM_KEYUP)
&& (Msg.wParam==VK_RETURN || Msg.wParam==VK_EXECUTE))
{
Handled=IsDialogMessage(CppWebBrowser1->Handle, &Msg);
if(Handled)
{
if(!OleInPlaceActiveObject)
{
CppWebBrowser1->Application->QueryInterface(IID_IOleInPlaceActiveObject,
(void**)&OleInPlaceActiveObject);
}
if(OleInPlaceActiveObject)
{
OleInPlaceActiveObject->TranslateAccelerator(&Msg);
}
}
}
else
{
Handled=false;
}
}
-- Enjoy Researching & Developing --
------ -- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
|
ericlwl
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:3 回覆:5 積分:1 註冊:2003-10-26
發送簡訊給我
|
謝謝!! 解決了!!
|
Blueberrug
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:14 回覆:50 積分:17 註冊:2005-05-22
發送簡訊給我
|
你好:
看了以上的程式有看沒有了解奧義,
只知道能把原本的滑鼠右鍵功能鎖住,
那請問是否有辦法把原本的滑鼠右鍵功能鎖住之後,
讓其他BUTTON可以執行滑鼠右鍵的功能呢?
謝謝您的幫忙!
ps:我按enter的時候,還是跳兩行,
無法模擬shift enter,請問有辦法修正ㄇ?
|