全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1543
推到 Plurk!
推到 Facebook!

試了許多方法都沒效~~如何將ActiveX Form 變成全螢幕

答題得分者是:dllee
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-05-29 16:37:31 IP:61.222.xxx.xxx 未訂閱
參考過 http://delphi.ktop.com.tw/topic.php?topic_id=27752    http://delphi.ktop.com.tw/topic.php?topic_Id=29759  <=用裡面的 Variant IEbrowser = Variant::CreateObject("InternetExplorer.Application"); IEbrowser.OlePropertySet("FullScreen","true"); 會出現錯誤訊息~~這是在ActiveX Form 上放的 是不是因為自己不能控制自己阿 是我程式寫不完全嗎~~還是方向搞錯了~~~>_< 對了~再提一點這是在
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-05-29 18:06:34 IP:61.218.xxx.xxx 未訂閱
1.記得#include < vcl/utilcls.h > 2.記得讓你的Internet Expolrer的Visible=true IEbrowser.OlePropertySet("Visible",true);
    我寫個小範例你試試:
//---------------------------------------------------------------------------    #include < vcl.h >
#include < vcl/utilcls.h >
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Variant IEbrowser = Variant::CreateObject("InternetExplorer.Application");
   IEbrowser.OlePropertySet("Visible",true);
   IEbrowser.OleProcedure("Navigate","http://delphi.ktop.com.tw");
   IEbrowser.OlePropertySet("FullScreen","true");    }
如果你的ActiveX Form本身能跟著Internet Expolorer放大縮小改變應該就沒問題才對.. ActiveX Form我沒用過...很抱歉幫不上忙... HAVE A NICE DAY 發表人 - axsoft 於 2003/05/29 19:18:14
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-05-29 20:06:23 IP:61.222.xxx.xxx 未訂閱
版主您好 我試了還是不行用我的哪個 >
dllee
站務副站長


發表:321
回覆:2519
積分:1711
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-06-04 12:55:06 IP:61.224.xxx.xxx 未訂閱
今天用 Web 看一些影片的片段 (用 MS 的 MediaPlayer),我想到一個方法,可以解決您的問題。    主 ActiveX Form 是放在流覽器內,會因流覽器的限制而無法全螢幕,但可以設定某個選單選項或按鈕或事件發生時,「另開一個視窗」將該視窗變成全螢幕就 OK 了  只要這兩個視窗可以資料交換,那就可以知道主控是誰,由誰決定資料的處理方式。 <>沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell.... 發表人 - dllee 於 2003/06/04 12:57:39
------
http://www.ViewMove.com
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-06-05 09:59:29 IP:61.222.xxx.xxx 未訂閱
感謝又一位版主的熱情回應~~^_^    您的想法,我之前也有想過,但又覺得這樣做是不是多此一舉,應該是自己對IE不夠了解,是不是有可能有IE裡面就有的資源,而我不會用它而已,所以提出來想看看大家有沒有看過或是用過類似的可以提供我一點意見~~< > 我想在過幾天如果沒有人 在提出我想我就會結案了~~~< > 最後如果不行我想我會先用這個dllee版主提的這個方法 可能還要攔截ALT TAB 這樣才不會被發現是用這個方法解決的~~呵呵~~
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-06-05 11:55:55 IP:61.218.xxx.xxx 未訂閱

IE & Delphi

http://www.euromind.com/iedelphi/ 可以幫你更瞭解IE的相關資訊的 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=9636031&CC=215509">HAVE A NICE DAY 發表人 - axsoft 於 2003/06/05 11:56:57
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-06-05 12:52:30 IP:61.221.xxx.xxx 未訂閱
mkbobo 兄 你的問題 看的 霧殺殺 如果真的 不行 你就上傳部份範例至 求救區 基本上ie有此功能 再php或asp jsp 都可以 ie全營幕 不過如php內崁ActiveX Form 是比較麻煩 如果你不是用php應該 你的都在ie&delphi都找的到 可簡訊詢問 a sir Qoo delphiwww cmf turboted Justmade RaynorPao 這些大仔 他們對於 web視訊 都有研究 先找他們 或傳範例才比較能 知道你要的是甚麼 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-06-05 16:16:35 IP:61.222.xxx.xxx 未訂閱
首先感謝,你們所提供的資料,但是Delphi 我不會阿 >_<~~~~ 我會去想辦法盡量看看了~~ 聽我說的霧殺殺~~~><~~可能是我語意不清~~不好意思了^^" 接下來試著說明看看~~是否你們看的懂    首先先提到
引言: 主 ActiveX Form 是放在流覽器內,會因流覽器的限制而無法全螢幕,但可以設定某個選單選項或按鈕或事件發生時,「另開一個視窗」將該視窗變成全螢幕就 OK 了
dllee 版主提供的方法 會因流覽器的限制而無法全螢幕 這我試過了~用axsoft版主的方法 的確無法全螢幕 如下圖 另開一個視窗 的時候 public TActiveForm 就轉變為 public TForm 自然是TForm 所有的功能都可以用了,全螢幕當然就沒問題拉 今天想了又想 既然連微軟他在WEB撥放影像片段時都是用MediaPlayer 來完成他的全螢幕我又何必鑽牛角尖呢~~^^~~開一個Form不就得了 或許 > ) 寫到這就覺得這個問題應該可以結案了, 但是我想再等個幾天吧,說不定有一些新的想法可以被提出來~~^^
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-06-05 17:30:09 IP:61.218.xxx.xxx 未訂閱
或許可以透過Javascript來達成 http://users.pandora.be/dedeyne/frans2ol.doc
< script >
< !--
/*Full screen window opener script: Written by JavaScript Kit (www.javascriptkit.com) More free scripts here*/
function winopen(){
var targeturl="frans2ol.htm"
newwin=window.open("","","fullscreen,scrollbars")
if (document.all){
newwin.moveTo(0,0)
newwin.resizeTo(screen.width,screen.height)
}
newwin.location=targeturl
}
//-- >
< /script >
HAVE A NICE DAY 發表人 - axsoft 於 2003/06/05 17:41:11
dllee
站務副站長


發表:321
回覆:2519
積分:1711
註冊:2002-04-15

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-06-05 17:58:55 IP:61.231.xxx.xxx 未訂閱
引言: 最後如果不行我想我會先用這個dllee版主提的這個方法 可能還要攔截ALT TAB 這樣才不會被發現是用這個方法解決的~~呵呵~~
可以判斷表單是否 Active 即可,有 OnActivate, OnDeactivate 可用。 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....
------
http://www.ViewMove.com
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-06-06 14:18:13 IP:61.222.xxx.xxx 未訂閱
引言: 或許可以透過Javascript來達成 http://users.pandora.be/dedeyne/frans2ol.doc < script > < !-- /*Full screen window opener script: Written by JavaScript Kit (www.javascriptkit.com) More free scripts here*/ function winopen(){ var targeturl="frans2ol.htm" newwin=window.open("","","fullscreen,scrollbars") if (document.all){ newwin.moveTo(0,0) newwin.resizeTo(screen.width,screen.height) } newwin.location=targeturl } //-- > < /script >
感謝回應~~< > 測試結果,還是和之前的那張圖一樣,會有邊緣 其實我提出的問題是,如何在><" 不過至少知道這樣其實還是不行的~~~< > 我想通到羅馬的路很多條~~至少知道這條是不通的~~~^^
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-06-11 13:37:19 IP:61.222.xxx.xxx 未訂閱
最近收到一個網址 http://www.oazabir.com/  蠻酷的~~~^^ 提外話 重點是感覺上這個網站對
dllee
站務副站長


發表:321
回覆:2519
積分:1711
註冊:2002-04-15

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-06-11 16:54:24 IP:61.231.xxx.xxx 未訂閱
剛寫好上來竟看到您先給分了,真不好意思  請看看最新發表的作品 ■【>沒空更新的網頁... href="http://dllee.adsldns.org">http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....
------
http://www.ViewMove.com
mkbobo
一般會員


發表:4
回覆:68
積分:19
註冊:2003-04-10

發送簡訊給我
#14 引用回覆 回覆 發表時間:2003-06-12 20:23:44 IP:61.222.xxx.xxx 未訂閱
沒想到 > 會先給分的原因是因為本來就覺得可能就只有這個解法了 但是想在等幾天 看看有沒有新的想法可以被提出來 這幾天都沒有 所以^^ 接下來說正題拉 測試結果 >
系統時間:2024-04-29 9:14:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!