Delphi的Web Deploy功能自动产生嵌入ActiveFrom的HTML文件，为什么在生成的网页中ActiveFrom内的所有控件的“上下左右”键都不能

Delphi的Web Deploy功能自动产生嵌入ActiveFrom的HTML文件，为什么在生成的网页中ActiveFrom内的所有控件的“上下左右”键都不能使了？急！ ( 积分: 300 )<br />Delphi的Web Deploy功能自动产生嵌入ActiveFrom的HTML文件，为什么在生成的网页中ActiveFrom内的所有控件的“上下左右”键都不能使了？急！问题已解决立刻给分！

Delphi的Web Deploy功能自动产生嵌入ActiveFrom的HTML文件，为什么在生成的网页中ActiveFrom内的所有控件的“上下左右”键都不能使了？急！问题已解决立刻给分！

//Tform1是你要显示的Form
const
WM_ActiveApplication= WM_USER+1410;
procedure MsgHandler(var Msg: TMsg
var Handled: Boolean);
procedure WMActiveApplication(var aMsg: TMessage);message WM_ActiveApplication;

procedure Tform1.MsgHandler(var Msg: TMsg
var Handled: Boolean);
begin
//处理点击IE窗口关闭按钮消息
if Msg.Message = WM_CLOSE then
begin
handled:=System.false;
Application.Terminate;
end;
end;
procedure Tform1.FormShow(Sender: TObject);
begin
PostMessage(self.Handle,WM_ActiveApplication,0,0);
end;
procedure Tform1.WMActiveApplication(var aMsg: TMessage);
begin
Application.Initialize;
Application.OnMessage := MsgHandler;
Application.Run;
end;

上面的程序适用于Delphi7,嵌入的不是TWebBrowser,是TEmbeddedWB，一个跟TWebBrowser差不多的组件，在http://www.euromind.com/iedelphi可以获得，如果是EXE带TEmbeddedWB，什么程序都不用写；如果是网页中的Ocx之中再带TEmbeddedWB，那么第一个Ocx程序需要按上面的方法写，这样在TEmbeddedWB中打开的组件可以支持键盘操作,。