if (Msg.message = WM_CLOSE) then
begin
for i:=0 to HomePage.PageCount-1 do
for n:=0 to Homepage.Pages[i].ControlCount-1 do
if (Homepage.Pages[i].Controls[n] is TWebBrowser) and
(Msg.hwnd = (Homepage.Pages[i].Controls[n] as TWebBrowser).Handle)
then
begin
//调用自已的过程
Handled := True;
Break;
end;
exit;
end;