아래와 같이 WebBrowser 컴포넌트를 이용하여 웹브라우저를 띄웠는데 여기에 띄울 홈페이지 소스중에 javascript를 이용하여 만든 종료 버튼( parent.window.close() )이 먹혀들지 않는 군요.
WebBrowser는 종료가 되는데 이 놈에 폼이 살아서 문제가 되는데요 그래서 WebBrowser의 OnExit이벤트(6~9행)를 사용했으나 역시나 않되는 군요...
OnQuit이벤트도 마찬가지고요.
방법이 없을까요.
1: procedure Tsetupform.FormCreate(Sender: TObject);
2: begin
3: WebBrowser1.Navigate(extractfilepath(application.exename) + './intro.htm', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
4: end;
5:
6: procedure Tsetupform.WebBrowser1Exit(Sender: TObject);
7: begin
8: close;
9: end;