請問先進們: 如何在WebBrowser上,按滑鼠右鍵無動作呢? 類似按滑鼠右鍵時abort. 謝謝!

使用 Applicaton.OnMessage 就可以了。 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var p:tpoint; thename:array [0..255] of char; begin if (msg.message=wm_rbuttondown) then begin getcursorpos(p); getclassname(windowfrompoint(p),thename,255); if thename='Internet Explorer_Server' then handled:=true; end; end;

引言: 使用 Applicaton.OnMessage 就可以了。

wameng兄 您好: 請問要在哪觸發 ApplicationEvents1Message 事件. 謝謝!

您可以建立 ApplicationEvents 物件 中有 Onmessage

引言: 您可以建立 ApplicationEvents 物件 中有 Onmessage

wameng兄 您好: 我找不到ApplicationEvents物件的help, 請問要如何建立及觸發ApplicationEvents1Message 謝謝!

在 ApplicationEvents(Additional 頁）元件 與 WebBrowser 放置在同一 Form 選擇 ApplicationEvents 元件的 Events 中 OnMessage 就可以了。 要查 HELP 請用 TApplicationEvents 關鍵字 發表人 - wameng 於 2004/10/08 23:14:30

事實上，也可以直接用 Application.OnMessage := ApplicationEvents1Message 竟不需要建立 TApplicationEvents 物件了。

wameng兄 您好: 我在WebBrowser上,一直按滑鼠右鍵測試時, 突然間出現原本的PopupMenu,好像會突然失效, 不知是什麼原因.

你的 POPUPMENU 該不會由 WebBrowser 來控制吧！ procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var p:tpoint; thename:array [0..255] of char; begin if (msg.message=wm_rbuttondown) then begin getcursorpos(p); getclassname(windowfrompoint(p),thename,255); if thename='Internet Explorer_Server' then begin handled:=true; PopupMenu1.Popup(P.X,P.Y); end; end; end;

wameng兄 您好: 對不起,可能我表達錯了.    "突然間出現原本的PopupMenu"是指:    ie本身按滑鼠右鍵的PopupMenu,內容如: 上一頁(B) 下一頁(O) ----------- 另存背景(S) ... ... ... 內容(P)

加上滑鼠點二下的判斷就可以了    procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;   var Handled: Boolean); var p:tpoint; thename:array [0..255] of char; begin if (msg.message=wm_rbuttondown) or (msg.message=WM_RBUTTONDBLCLK) then begin getcursorpos(p); getclassname(windowfrompoint(p),thename,255); if thename='Internet Explorer_Server' then begin handled:=true; end; end; end;

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.