請問各位大大啊 小弟我正在寫一個煙火程式 目前卡在一個多執行緒的問題 因為我要在按下滑鼠時就要有煙火發射 所以做了一個物件如下 unit1.cpp TForm1 *Form1; TThread *FireUp; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { FireUp=new Fire(false,X,Y); FireUp->Resume(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { delete FireUp; } unit2.cpp __fastcall Fire::Fire(bool CreateSuspended,int x,int y) : TThread(false) { this->Mouse_x=x; this->Mouse_y=y; } //------------------------------------------------------------------------- void __fastcall Fire::Execute() { for(int y=400;y>=Mouse_y;y-=3) { this->FirePrint(Mouse_x,y-3,Mouse_x,y,clRed); Sleep(50); this->FirePrint(Mouse_x,y-3,Mouse_x,y,clBlack); } } //------------------------------------------------------------------------- void Fire::FirePrint(int x1,int y1,int x2,int y2,TColor pencolor) { Form1->Canvas->Pen->Width=3; Form1->Canvas->Pen->Color=pencolor; Form1->Canvas->Pen->Style =psSolid; Form1->Canvas->MoveTo(x1,y1); Form1->Canvas->LineTo(x2,y2); } 問題是目前只要我同時產生出太多的煙火 還沒到要爆的地方就停著不動了 是因為我只用一個指標(FireUp)的原因嗎? 請各位大大幫小弟解答一下 謝謝 PS: 拜託 請盡量不要給我你們以前寫的程式原始碼 (給我我就會想抄了) 給我提示就好 我想自己寫出來 謝謝

依您的程式碼 unit1.cpp 中， TThread *FireUp; 只有「一個」，但是在每次 FormMouseDown 時您就 new 一次，而每 new 一次，其前一次所記錄下來的指標就已經不見了。 在此最好使用一個陣列 int iTotalFireUp; TThread *FireUp[100]; 來存所有 new 出來的指標，以上是最多限制 100 個煙火，如果您想要無限制，可以使用 TList 來存 TThread 的指標。 至於 unit2.cpp ，因個人不熟 TThread 所以不知.....

------
http://www.ViewMove.com

謝謝回應 但是我試過了 會有一樣的問題

給想幫我解答的人 這是我做出來的程式和原始碼 請幫我看看是啥問題 大概只要同時產生4個煙火就會有問題 http://home.pchome.com.tw/boy/13fri/debug/Fire.exe 謝謝

這裡有一個非TThread方法寫的範例! 讓您腦力激盪一下,搞不好就能把TThread方法的煙火寫出來喔! 資料來源:資訊小痞子 http://netcity3.web.hinet.net/userdata/k1228341/firsouce.zip

背景執行緒..不可以用前景的vcl元件 因為資料會讀寫不全 要用的話,要這樣用 Synchronize(UpdateCaption); where UpdateCaption could look like: void __fastcall Unit2::UpdateCaption() { Form1->Caption = "Updated in a thread"; } write program togather

------
write program togather

謝謝各位 問題已經算是大部分解決了 不過現在畫面會閃爍 是因為沒用DRAW嗎 我把修改後的程式碼 放到上面的網址了 請幫忙看看 謝謝