게시판에는 주로 TWebBrowser를 썼을때의 방법이 적혀져 있지만... ActiveForm도 마찬가지입니다. 브라우저 상에서 동작하기 때문에...
아래와 같이 해보세요...
uses
......, SHDocVW, MSHTML;
var
ClientSite: IOleClientSite;
ServiceProvider: IServiceProvider;
WebBrowserApp: iwebbrowserApp;
HTMLDocument2: IHTMLDocument2;
HTMLWindow2: IHTMLWindow2;
begin
if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then
begin
if (ClientSite <> nil) then
begin
ClientSite.QueryInterface(IServiceProvider, ServiceProvider);
if (ServiceProvider <> nil) then
begin
ServiceProvider.QueryService(IWebBrowserApp, IWebBrowserApp, WebBrowserApp);
if (WebBrowserApp <> nil) then
begin
HTMLDocument2 := WebBrowserApp.Document as IHTMLDocument2;
HTMLWindow2 := HTMLDocument2.ParentWindow;
HTMLWindow2.ExecScript('SubmitForm()','javascript');
end;
end;
end;
end;
end;
Activex form에서 버튼을 클릭시 Actviex form이 박혀 있는 웹브라우저에 있는 아래의 자바스크립을 호출 하려고 합니다.. 게시판 검색해서 찾아봤는데... 잘 이해가 되지 않더군요.... 답변주시면 감사하겠습니다. <script language="jav...
최용일
•
2004.10.19 04:22
안녕하세요. 최용일입니다.
게시판에는 주로 TWebBrowser를 썼을때의 방법이 적혀져 있지만... ActiveFo...
카리스마
•
2004.10.19 21:14
천사같은 용일님 감사...
항상 많은 도움을 받고 있습니다만..
이렇게..
빠트리지 않고...
님의 노하우...
게시판에는 주로 TWebBrowser를 썼을때의 방법이 적혀져 있지만... ActiveForm도 마찬가지입니다. 브라우저 상에서 동작하기 때문에...
아래와 같이 해보세요...
uses
......, SHDocVW, MSHTML;
var
ClientSite: IOleClientSite;
ServiceProvider: IServiceProvider;
WebBrowserApp: iwebbrowserApp;
HTMLDocument2: IHTMLDocument2;
HTMLWindow2: IHTMLWindow2;
begin
if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then
begin
if (ClientSite <> nil) then
begin
ClientSite.QueryInterface(IServiceProvider, ServiceProvider);
if (ServiceProvider <> nil) then
begin
ServiceProvider.QueryService(IWebBrowserApp, IWebBrowserApp, WebBrowserApp);
if (WebBrowserApp <> nil) then
begin
HTMLDocument2 := WebBrowserApp.Document as IHTMLDocument2;
HTMLWindow2 := HTMLDocument2.ParentWindow;
HTMLWindow2.ExecScript('SubmitForm()','javascript');
end;
end;
end;
end;
end;