各位大大好！！ 我寫了一個小程式！！ 且做了一個小小的logo…就同adobe等…軟體…執行時…的進入logo ！ 我把它用為動態的form！ 已經…沒問題了！ 而我也給 主form 有 5秒 的 delay時間！ 但我在debug時！ 他重畫卻在 主form 開啟之前…無法執行！ 若我把…logo的顯示時間拉長！ 發覺…重畫卻在…主form 開啟後！！ 才開始重作！！ 請問一下…我該如何改！！ 才能使…... ...在顯示logo 時…logo 上的重畫也能動！！ 麻煩各位高手了！！謝了

那你可以試試把logo當成主Form..他就是最先執行的

baiyusheng：方法不是唯一，以下是我使用的方式。
將Logo建構於Logo.cpp(裡面只放了一張圖)。
於主Form上的OnCreate
void __fastcall THtJob2::FormCreate(TObject *Sender)
{
    Screen->Cursors[1] =
    LoadCursor(HInstance, MakeIntResource("WEBPOINTER"));           // !!.50
    Logo = new TLogo(Application);
    Logo->Show();
    UpdateWindow(Logo->Handle);
    unsigned long StartTime = GetTickCount();
    while (GetTickCount() < StartTime   5000) {
        Application->ProcessMessages();
    }
}
請參考！    

Andy Chang

------
Andy Chang

引言: 那你可以試試把logo當成主Form..他就是最先執行的

嗯…這方法…我已用過了！！ 但不行呢！！??^_^

引言: 各位大大好！！ 我寫了一個小程式！！ 且做了一個小小的logo…就同adobe等…軟體…執行時…的進入logo ！ 我把它用為動態的form！ 已經…沒問題了！ 而我也給 主form 有 5秒 的 delay時間！ 但我在debug時！ 他動畫卻在 主form 開啟之前…無法執行！ 若我把…logo的顯示時間拉長！ 發覺…動畫卻在…主form 開啟後！！ 才開始動作！！ 請問一下…我該如何改！！ 才能使…... ...在顯示logo 時…logo 上的動畫也能動！！ 麻煩各位高手了！！謝了 發表人 - baiyusheng 於 2005/06/01 19:09:06

我想…再補述一下我的問題！！ 應該說…我的logo想要有動畫！！ 在還沒讀取到主form時…希望有動畫！！ 麻煩各位前輩了！！^_^

baiyusheng：參考了C   Builder & Windows API
鄭明，鄭世偉編著；文魁資料股份有限公司
簡單說明如下：
我於Form2上，放一TAnimate元件置入一.avi檔時間12秒鐘！
Form2->AutoSize=true;
將Form2加入Project1專案中
開啟Project1.cpp
//---------------------------------------------------------------------------    #include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
#include "Unit2.h"
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  try
  {
    // 於Form1開啟前先顯示動畫
    TForm2 *Ani=new TForm2(NULL);
    Ani->BorderStyle=bsNone;
    Ani->Show();
    Ani->Refresh();
    Ani->Animate1->Active=true;
    int i=12;  // 配合我動畫時間
    while(i) {
      i--;
      Sleep(1000);
    }
    Application->ProcessMessages();         Application->Initialize();
     Application->CreateForm(__classid(TForm1), &Form1);
     Application->CreateForm(__classid(TForm2), &Form2);
    delete Ani; // 於主程式進入前刪除動畫片頭
     Application->Run();
  }
  catch (Exception &exception)
  {
     Application->ShowException(&exception);
  }
  catch (...)
  {
     try
     {
       throw Exception("");
     }
     catch (Exception &exception)
     {
       Application->ShowException(&exception);
     }
  }
  return 0;
}    以上於BCB6-->>OK！
請參考！    

Andy Chang

------
Andy Chang