線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1848
推到 Plurk!
推到 Facebook!

[BCB]請問寫完LOGO後如何跳到下一個視窗??

答題得分者是:李國維
sharptooth
一般會員


發表:4
回覆:5
積分:1
註冊:2004-12-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-01-11 04:47:05 IP:163.28.xxx.xxx 未訂閱
如題...小弟想寫一個有LOGO的程式 按照我們老師的說法  LOGO我是用一個Form來寫 只是把他的標題列給隱藏起來了   LOGO寫到後面就是 { ............. Form1->Close(); };    請問要如何進入下一個視窗呢? 之前爬過文  知道建立新視窗有分動態和靜態 既然我主要的程式是在後來跳出來的那個視窗上面 所以我認為是在design time的時候就由file/new/form建立新視窗 把要寫的東西都寫在這個Form2上 等到Form1關掉前把Form2呼叫出來就好了 但是我發現....我找不到把Form2叫出來的方法 還請各位指點迷津  看是要include什麼還是加一行程式碼 謝謝
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-01-11 04:51:21 IP:203.204.xxx.xxx 未訂閱
請參考以下連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=49716    _______________________________________ 深藍的魚,祝您好運..........連連
李國維
高階會員


發表:42
回覆:287
積分:235
註冊:2003-02-07

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-01-11 08:49:57 IP:220.130.xxx.xxx 未訂閱
sharptooth: 動態產生Form 1.在Project->Options中將你所做的Logo Form假設為FrmLogo設為Available forms. 2.在主要的Form中宣告#include "FrmLogo.h" 3.呼叫Logo Form. TFrmLogo *TmpLog = new TFrmLogo(Application); TmpLog->Show();
sharptooth
一般會員


發表:4
回覆:5
積分:1
註冊:2004-12-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-01-11 13:44:46 IP:163.28.xxx.xxx 未訂閱
回Ch大 謝謝你的連結 可是我想問的是Logo 不是Login ^^" 回國維哥 我照你說的試了 蠻接近我想要的結果 :D 我把 Form1->Show(); 寫在 TForm2::FormCreate裡面 但是執行時產生的是一個空白的Form1 之前寫在Form1上的東西全部都沒出來 還有Form1會跑到最左上角去@@" 請問為什麼會這樣呢??
sharptooth
一般會員


發表:4
回覆:5
積分:1
註冊:2004-12-19

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-01-11 13:52:11 IP:163.28.xxx.xxx 未訂閱
漏問一個小問題...還有既然是Logo 應該都是會出現在最上層的畫面才對吧...    可是產生Form1的時候會被Form2蓋在下面 在 TForm2::FormCreate 裡面打 Form1->SetFocus(); 也沒有用@@" 請解惑...
sharptooth
一般會員


發表:4
回覆:5
積分:1
註冊:2004-12-19

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-01-11 14:51:29 IP:163.28.xxx.xxx 未訂閱
為避免浪費各位時間 我把程式碼波上來好了:D    [code from unit1.cpp] void __fastcall TForm1::Timer1Timer(TObject *Sender) {         n++;            if(n==2)         Image2->Picture->LoadFromFile("37.jpg");            if(n==3)         Image2->Picture->LoadFromFile("581.jpg");            if(n==4)         Image2->Picture->LoadFromFile("582.jpg");            if(n==5)         Image2->Picture->LoadFromFile("583.jpg");            if(n==6)         Image2->Picture->LoadFromFile("721.jpg");            if(n==7)         Image2->Picture->LoadFromFile("722.jpg");            if(n==8)         Image2->Picture->LoadFromFile("99.jpg");            if(n==9)         Form1->Close(); } [/code]  以上是Logo換了幾張圖..然後關掉    [code from unit2.cpp] void __fastcall TForm2::FormCreate(TObject *Sender) {         Form1->ShowModal();         } [/code]  有爬到類似的問題  說要用ShowModal(); 才不會被蓋住    但是compiler時出現這畫面 現在不知道怎麼解決@@" 我在project的option裡面把 Form1 設成Available了已經... 而我想要的情況是程式一執行時 Form1先出現 換了幾張圖以後 Form1 關掉 Form2彈出來..希望這樣我的問題敘述的夠詳細...
sharptooth
一般會員


發表:4
回覆:5
積分:1
註冊:2004-12-19

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-01-11 21:12:57 IP:163.28.xxx.xxx 未訂閱
原來我 Form1->ShowModal(); 打錯地方了    要打在project1.cpp裡面才對...    感謝各位的回答...
系統時間:2024-06-30 14:36:10
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!