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

請問如何製作片頭畫面??

尚未結案
aredfish
一般會員


發表:47
回覆:41
積分:17
註冊:2002-12-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-18 11:17:19 IP:211.74.xxx.xxx 未訂閱
大家好,我想請問一下大家如何製作片頭畫面,就是在Form還沒被create出來之前所出現的畫面,而在form出來之後又會自動消失的那種. 我之前在書店有翻到這樣的一個範例,好像是要寫在有Application的那個程式裡面,我剛又回去書店找,可是已經找不到那本書了,所以想請大家幫忙,謝謝!!!
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-18 12:03:43 IP:211.76.xxx.xxx 未訂閱
您好:  
 
  Application.Initialize;
  fmsplash:= Tfmsplash.Create(Application);
  fmsplash.Show;
  fmsplash.Update;
  Application.Title:= 'XXXX銷存系統';
  ........
  Application.CreateForm(Tindex, index);
  ........ 
  fmsplash.Hide;
  fmsplash.Update;
  fmsplash.Free;
  Application.Run;
fmsplash是一ㄍFORM 這是DELPHI的做法 自行轉為C ,參考看看 ~~應無所住而生其心~~
aredfish
一般會員


發表:47
回覆:41
積分:17
註冊:2002-12-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-01-19 09:19:43 IP:220.130.xxx.xxx 未訂閱
謝謝terrychen大大的幫忙,不過我還有個問題要解決 我在Project1.cpp裡面加入下面的程式碼 Form2 = new TForm2(Application); Form2->Show(); Form2->Update(); 但是系統跟我說Undefined structure'TForm2', 所以想請問一下大家 我應該要在哪裡加入相關的宣告,以及應該如何加入呢,謝謝大家!! 新年快樂!!
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-01-19 09:53:11 IP:211.22.xxx.xxx 未訂閱
您好: 在DELPHI裡是這樣寫的    
 
program OmrReader;    uses
  Forms,
.......
  Splash in 'Splash.pas' {fmSplash},
.......
~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/01/19 09:56:07
CuteBabyBoy
初階會員


發表:18
回覆:97
積分:48
註冊:2003-07-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-01-19 09:55:23 IP:218.167.xxx.xxx 未訂閱
請參考看看,這會不會是您所需要的...^^     
//---------------------------------------------------------------------------    #include 
#pragma hdrstop
//---------------------------------------------------------------------------

#include "Unit2.h"    USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->CreateForm(__classid(TForm2), &Form2);                     Form2->ShowModal();                     Application->Run();            }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------     
Baby
GaryKao99
中階會員


發表:46
回覆:102
積分:54
註冊:2002-08-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-01-19 10:41:58 IP:202.145.xxx.xxx 未訂閱
Logo製作(從書裡抄出來的) 這應該是你要的 < class="code"> //--------------------------------------------------------------------------- #include #pragma hdrstop USERES("Logo.res"); USEFORM("frmMain.cpp", ciMain); USEFORM("frmLogo.cpp", ciLogo); //--------------------------------------------------------------------------- #include "frmLogo.h" //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); ciLogo = new TciLogo( Application ); ciLogo->Show(); ciLogo->Update(); Application->CreateForm(__classid(TciMain), &ciMain); Sleep(1000); delete ciLogo; Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //--------------------------------------------------------------------------- ~~~~~~~~~~~~~~~~~~~~~~ 我什麼都會, 就兩樣不會 就是 這個也不會, 那個也不會
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-01-19 13:44:13 IP:61.221.xxx.xxx 未訂閱
在補充一下 你可以從project==>options==>Forms將Form2移至auto-create forms這樣就可以了 ~~應無所住而生其心~~
aredfish
一般會員


發表:47
回覆:41
積分:17
註冊:2002-12-04

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-01-19 19:48:22 IP:211.74.xxx.xxx 未訂閱
謝謝大家的幫忙,Auto create form這招有用, 還有include也是要記得加上去的, 謝謝大家囉!!!
系統時間:2024-05-05 12:35:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!