Question

Delphi7焦点在WebBrowser1中按ESC运行命令

Delphi7焦点在WebBrowser1中按ESC运行命令
WebBrowser1没有按键事件
10块钱求解决 问题解决汇款 留下支付宝

Answer 1

//用ApplicationEvents控件，拦截ESC键按下的消息，提醒别做坏事！
//钱就不用了，多给点分吧
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_KEYDOWN) AND (Msg.wParam=VK_ESCAPE) then
begin
if IsChild(Webbrowser1.Handle, Msg.hwnd) then
showmessage('在这里做你想做的');
end else;
end;