如何利用ActiveX控制IE的選項 |
缺席
|
ccjason
一般會員 發表:4 回覆:22 積分:20 註冊:2002-04-05 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
1.如何寫IE plugin http://delphi.ktop.com.tw/topic.php?topic_id=32893
2.下載ie5toolshttp://www.euromind.com/iedelphi/ie5tools.htm,教你怎麼新增一按鈕在ie toolbar,按按鈕來呼叫plugin COM object
3.import MS internet control type lib,主要是要使用TInternetExplorer,TShellWindows,請先將原本內件的web_browser元件拿掉,再import,不然會衝到,將類似的程式碼加入你的plugin COM object..
{取得IE} for i:=0 to ShellWindows1.Count-1 do begin InternetExplorer1.ConnectTo(shellwindows1.item(i) as IWebBrowser2 ); if Pos('IEXPLORE.EXE',InternetExplorer1.FullName)>0 then InternetExplorer1.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER);不過如果你開2個以上的IE的話,請自行加其他條件判斷,不多贅 永遠追不上技術更新的速度~~< src="http://140.134.4.20/~g8905202/pucca.gif">
------
星期一,二...無窮迴圈@@ |
ccjason
一般會員 發表:4 回覆:22 積分:20 註冊:2002-04-05 發送簡訊給我 |
謝謝回應,我已找到解答
本來以為要寫ActiveX才能控制IE的Menu選項
但後來在大陸的網站找到方法,原來早有物件存在,只要叫用就好了 < >< >
<object classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 id=WB width=0></OBJECT> function doPrintSetup(){ //打印設置 WB.ExecWB(8,1) } function doSetTitle(){ //設定Title WB.ExecWB(28,1,"Test") } function doPrintPreview(){ //打印預覽 WB.ExecWB(7,1) }括弧裡面數字代表的意義,查閱Delphi的Help就可以 發表人 - ccjason 於 2003/07/11 11:42:39 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |