D dazzling Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #1 如果在TwebBrowser中按Ctrl+P键则会弹出打印机配置对话框， 如何禁止它的出现？即按Ctrl+P时不会有此框出现。
D dazzling Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #2 如果在TwebBrowser中按Ctrl+P键则会弹出打印机配置对话框， 如何禁止它的出现？即按Ctrl+P时不会有此框出现。
S satanmonkey Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #3 HOOK TwebBrowser的窗口，拦截相应消息试试
D dazzling Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #4 想过，不过这样还不如FindWindow来的更简单。 但绝对应该有更简单的方法，我相信有,盼高手解答。。。。。
T teams Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #5 form上放个Application Events，在其OnMessage事件中输入： procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if Msg.message = $0100 then Handled := True; end; 再按Ctrl+P看会不会出现对话框
form上放个Application Events，在其OnMessage事件中输入： procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if Msg.message = $0100 then Handled := True; end; 再按Ctrl+P看会不会出现对话框
D dazzling Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #6 治标不治本呐！！！ 关键是我的Ctrl+P还有别的用途，不将把这个按键信息给禁了，关键是不要打印机窗口出来 webbrowser中一定有得设置的
S satanmonkey Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #7 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if Msg.message = $0100 then begin Handled := True; //在这里调用你想要的功能，不就得了 end; end;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if Msg.message = $0100 then begin Handled := True; //在这里调用你想要的功能，不就得了 end; end;
S satanmonkey Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #9 ApplicationEvents本身就是钩子实现的。封装了下而已
T teams Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-20 #10 若TwebBrowser聚焦时，不屏蔽 Ctrl+P 窗体上的快捷也不起作用 这里只是屏蔽了TwebBrowser 补充一下， 多加个判断! if Msg.message = $0100 then begin if IsChild(wb1.Handle, Msg.hwnd) then Handled := True else Handled := False; end;
若TwebBrowser聚焦时，不屏蔽 Ctrl+P 窗体上的快捷也不起作用 这里只是屏蔽了TwebBrowser 补充一下， 多加个判断! if Msg.message = $0100 then begin if IsChild(wb1.Handle, Msg.hwnd) then Handled := True else Handled := False; end;
