TWebBrowser打印不全的问题、屏蔽TWebBrowser控件鼠标右健、其他有关TWebBrowser的问题(100分)

  • 主题发起人 主题发起人 ARui
  • 开始时间 开始时间
A

ARui

Unregistered / Unconfirmed
GUEST, unregistred user!
TWebBrowser打印不全的问题、屏蔽TWebBrowser控件鼠标右健、
其他有关TWebBrowser控制的问题
 
建议用 EmbedDedwb 控件代替Twebbrower控件,
twebbrower使用 :http://eagleboost.myrice.com/issues/Materials/Articles/TWebBrowser.htm
用 EmbedDedwb 使用 http://www.euromind.com/iedelphi/

屏蔽TWebBrowser控件鼠标右健
自己加一PopupMenu控件,加一个ApplicationEvents控件到

下面IE是EmbedDedwb或者twebbrower控件
将panel中放EmbedDedwb panel的PopupMenu 指向PopupMenu1
procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
mPoint: TPoint;
begin
if IsChild(IE.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint);
PopupMenu1.Popup(mPoint.X, mPoint.Y);
Handled := True;
end;
end;
 
TWebBrowser
EmbedDedwb
在访问SINA网页的时候都会发现严重的问题有时会造成死循环请误必小心!

 

Similar threads

后退
顶部