Button執行的問題 |
|
答題得分者是：esp_pzj
|
|
mickey10112001
一般會員   發表：29 回覆：14 積分：8 註冊：2006-08-04 發送簡訊給我 |
請問各位大大:
我現在設有Button1...Button2..Button3..Button4按鈕!! 這4個Button互有關係..而我正常執行順序為先執行Button1..等其動作完成...在執行Button2...等其動作完成...在執行Button3...等其動作完成...在執行Button4....而Button4所執行出來的結果是我最後要得到的資料... 但我希望能讓Button2..Button3...Button4變成自動的..我只要按Button1後..而Button2..Button3...Button4也會依序執行得到我要的結果 請問可以做得到嗎?! 請各位大大提供意見..謝謝^^ 編輯記錄
|
|
暗黑破壞神
版主   發表：9 回覆：2301 積分：1627 註冊：2004-10-04 發送簡訊給我 |
|
|
esp_pzj
初階會員 發表：32 回覆：70 積分：40 註冊：2007-02-09 發送簡訊給我 |
|
|
mickey10112001
一般會員 發表：29 回覆：14 積分：8 註冊：2006-08-04 發送簡訊給我 |
===================引 用 esp_pzj 文 章=================== 你好： 在Button1Click加入 Button2Click(Self); 在Button2Click加入 Button3Click(Self); 在Button3Click加入 Button4Click(Self); 請問你所說的Button1Click是在哪裡呢?? 在Events裡面的On Click嗎???? 謝謝你的指導^^
編輯記錄
mickey10112001 重新編輯於 2007-07-03 17:42:55， 註解 無‧
mickey10112001 重新編輯於 2007-07-03 17:43:29， 註解 無‧ mickey10112001 重新編輯於 2007-07-03 17:43:52， 註解 無‧ mickey10112001 重新編輯於 2007-07-03 17:44:08， 註解 無‧ |
|
dllee
站務副站長  發表：321 回覆：2519 積分：1711 註冊：2002-04-15 發送簡訊給我 |
在表單放一個 TTimer 在 OnTimer 事件中作以下處理：
判斷按鈕1按下後等其動作完成 是否已完成, 若完成, 叫用按鈕2 即 Button2Click(NULL); 判斷按鈕2按下後等其動作完成 是否已完成, 若完成, 叫用按鈕3 即 Button3Click(NULL); 判斷按鈕3按下後等其動作完成 是否已完成, 若完成, 叫用按鈕4 即 Button4Click(NULL); 如此只要按下按鈕1後續動作就可以自動完成了。
------
http://www.ViewMove.com
編輯記錄
dllee 重新編輯於 2007-07-03 23:06:38， 註解 無‧
|
|
esp_pzj
初階會員 發表：32 回覆：70 積分：40 註冊：2007-02-09 發送簡訊給我 |
點一下button1就會執行button2→button3→button4了。
<textarea class="cpp" rows="10" cols="60" name="code">//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { ShowMessage("Button1"); Button2Click(Button1); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { ShowMessage("Button2"); Button3Click(Button2); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { ShowMessage("Button3"); Button4Click(Button4); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { ShowMessage("最後結果"); } //--------------------------------------------------------------------------- </textarea>
------
學藝不精 謝多多指教 |
|
mickey10112001
一般會員 發表：29 回覆：14 積分：8 註冊：2006-08-04 發送簡訊給我 |
===================引 用 esp_pzj 文 章=================== 點一下button1就會執行button2→button3→button4了。 <textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('button1'); Button2Click(Self); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage('button2'); Button3Click(Self); end; procedure TForm1.Button3Click(Sender: TObject); begin ShowMessage('button3'); Button4Click(Self); end; procedure TForm1.Button4Click(Sender: TObject); begin ShowMessage('最後的結果'); end;</textarea><br /> 請問這位大大... 你給我此程式是使用在BCB的嗎? 我找不到該只用此程式的地方耶~~ 請大大指導....謝謝^^ |
|
Stallion
版主 發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
發表時間：2007-07-03 15:17:42
IP:140.128.xxx.xxx 訂閱
系統時間：2024-05-06 2:42:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |