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

Logo畫面

答題得分者是:axsoft
lanfanra
一般會員


發表:48
回覆:51
積分:19
註冊:2003-08-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-12 10:25:23 IP:61.66.xxx.xxx 未訂閱
請問如何作一個預備畫面啊?(Logo畫面)是否可詳細告知,或寫一小段程式給小弟學學啊?     謝謝各位大大!!!
axsoft
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-12 10:54:40 IP:61.218.xxx.xxx 未訂閱
lanfanra您好:    如何產生應用程式啟動logo畫面,步驟如下:
1.開啟一新的Project
2.New form產生Form2
3.在Project.cpp中加入#include "Unit2.h"    Project.cpp
//---------------------------------------------------------------------------    #include 
#include "Unit2.h"
#pragma hdrstop
USERES("Project1.res");
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();//加入這一行,不可使用Form2->Show,如使用Form2->Show會被Form1蓋過去
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------    4.在Form2上加入Timer計時器,決定Form2顯示多久後關閉.
  //---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm2::FormCreate(TObject *Sender)
{
 Timer1->Interval=2000;//Timer設定為2秒後將Form2關閉
}
//---------------------------------------------------------------------------    void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
 Form2->Close();
}
//---------------------------------------------------------------------------
HAVE A NICE DAY FOR YOU 發表人 - axsoft 於 2003/08/12 11:05:34
lanfanra
一般會員


發表:48
回覆:51
積分:19
註冊:2003-08-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-12 11:45:25 IP:61.66.xxx.xxx 未訂閱
但是我用 Form2->ShowModal();時會出現錯誤 用 Form2->Show();時不會耶??? 但用 Form2->Show();時會把我的Form1和Form2同時顯現出來說
axsoft
版主


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-08-12 12:33:46 IP:61.218.xxx.xxx 未訂閱
引言: 但是我用 Form2->ShowModal();時會出現錯誤 用 Form2->Show();時不會耶??? 但用 Form2->Show();時會把我的Form1和Form2同時顯現出來說
lanfanra 您好: 我弄了一個範例你試試! 下載:http://delphi.ktop.com.tw/loadfile.php?TOPICID=11139996&CC=249144 HAVE A NICE DAY FOR YOU
lanfanra
一般會員


發表:48
回覆:51
積分:19
註冊:2003-08-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-08-12 12:39:58 IP:61.66.xxx.xxx 未訂閱
感謝您啊!!大大...
系統時間:2024-05-02 9:22:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!