WebBrowser 에서 처음에는 부라우저를 찾아습니다.
그런다음 브라우져에서... 다른데로 링크를 할면 페이지를 찾을수 없습니다. 나
올때.. 폼을 종료하고 싶어요.. 어떻게 하면 되나요 .. 부탁드립니다.
1. Formshow할때.. WebBrowser.Navigate(CurrentDir + 'imagesCommonhtml주식정보stock.html');
이렇게 한다음 부라우져 찾음
2. WebBrowser 화면에서.. 이미지 버튼클릭하면.. 다른사이트로 링크가 걸려잇음.. 누르면 페이지 찾을수 없음나옴..(이렇때.. 페이지종료하고 싶음)
TWebBrowser 컴포넌트에 보면, OnBeforeNavigate2 이벤트가 있습니다. 여기서, 페이지를 찾을 수 없음을 나타내는 URL이 넘어온 경우, 폼을 종료시키면 될것 같네요.
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if Pos(URL, 'dnserror.htm')>0 then
begin
Cancel:=true; // 더이상 네비게이션하지 않도록.
Close; // 창닫기
end;
end;
이런식으로 하시면 되겠죠.
그럼, 즐푸~