我想做一個能在程式開始之前先秀一個類似像DELPHI程式 一開始先秀LOGO之類的東西,原本我在Splashform這個Form裡面放的是Timage 來顯示圖片,但是後來我把它改成TShockwaveFlash之後執行就出現錯誤了, 不知是什麼原因,所以上傳檔案請各位高手幫我解決,謝謝 發表人 - blossom 於 2002/09/22 11:32:54

附加檔案：21423_splashform.zip

將程式改成如以下

       Application.Initialize;
  
  SplashForm := TSplashForm.Create(Application);
  splashform.show; //先開啟Splash Form
  splashform.Update;      Application.CreateForm(TMainForm, MainForm);
  splashform.Close;
  Application.Run;

@@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

andersonhsieh大大謝謝你的解答, 現在小弟這個問題解決之後又有 一個問題,就是我的Flash不會動, 怎麼會這樣呢,我以經把檔案從新 上傳一遍了,可不可以麻煩你在幫 我看一下是哪個地方有問題呢,感 激不盡..

在SplashForm的ONCREATE加入以下程式試試 procedure TSplashForm.FormCreate(Sender: TObject); begin ShockwaveFlash1.LoadMovie(0, ExtractFilePath(Application.ExeName) 'ing.swf'); ShockwaveFlash1.Play; end; @@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

andersonhsieh大大 我加上去你說的那兩行程式 Flash還是不會動,到底問題出在什麼地方呢,都想 不出來,還有沒有別的方法呢,麻煩你了.

我實在不知是何問題,因為我用delphi5去run你的程式flash可以run可是在delphi6中就不可以了 @@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

andersonhsieh大大真的是太謝謝你了,雖然沒有結果, 還是非常感謝你熱心的替我解答