如何用參數,給不同Form上面的元件,一個值 |
答題得分者是:pceyes
|
mybanksoft
初階會員 ![]() ![]() 發表:8 回覆:37 積分:29 註冊:2007-12-25 發送簡訊給我 |
我有2個Form, 上面的元件名稱及數量完全一樣,因為元件的數量很多,我不想一個一個指定,我的程式碼如下:
[code delphi] procedure TForm1.Button1Click(Sender: TObject); var _F : Tform; begin if Trim(Edit1.text) = '1' then _F := Form2 else _F := Form3; _F.Show; //下面這一行有問題 _F.Button1.Caption := 'xxx'; end; procedure TForm1.Button2Click(Sender: TObject); var _F : Tform; begin //以下都可正常執行 if Trim(Edit1.text) = '1' then begin Form2.Show; Form2.Button1.Caption := 'xxx'; end else begin Form3.Show; Form3.Button1.Caption := 'xxx'; end; end; [/code] 用TForm1.Button2Click絕對可行,問題是要寫太多的程碼,而TForm1.Button1Click是我想要的,但我試不出來,各位先進,不知有沒有比較好的方法或建議。
------
努力學習Rave 編輯記錄
mybanksoft 重新編輯於 2008-10-05 00:03:44, 註解 無‧
mybanksoft 重新編輯於 2008-10-05 00:05:22, 註解 無‧ mybanksoft 重新編輯於 2008-10-05 00:08:27, 註解 無‧ taishyang 重新編輯於 2008-10-06 10:02:01, 註解 歸類成[問題]‧ |
pceyes
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
|
mybanksoft
初階會員 ![]() ![]() 發表:8 回覆:37 積分:29 註冊:2007-12-25 發送簡訊給我 |
謝謝,果然可用
原來FindComponent這指令我現有的程式就有,但不熟,所以不會運用。下次關於元件的控制我會先用FindComponent來思考 謝謝。 我想結案了,但!很奇怪,不知道是為何,找不到結案的功能。有固定的操作順序才會出現結案的功能嗎? 可能是我在發問的時候,沒有選擇問題的原故,因此沒有結案的功能 pceyes 前輩得分,謝謝您的回覆。
------
努力學習Rave
編輯記錄
|
P.D.
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
沒有寄怪, 只怪你發問題前不先看清楚新文章的主旨說明, 就一昧的求問
"請確實做好主題分類,非問題類別的文章將不具結案功能" ===================引 用 mybanksoft 文 章=================== 我想結案了,但!很奇怪,不知道是為何,找不到結案的功能。有固定的操作順序才會出現結案的功能嗎? 可能是我在發問的時候,沒有選擇問題的原故,因此沒有結案的功能 pceyes 前輩得分,謝謝您的回覆。 |
careychen
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
你可以在你最上面的那篇文章的右上角有個 修改的按鈕,進去後就可以把本次的討論類型做改變,
先選擇問題,按下修改後,再選擇 pceyes 大就行了~~! 適時的結案對回答者也是一種鼓勵哦~! ===================引 用 mybanksoft 文 章=================== 謝謝,果然可用 原來FindComponent這指令我現有的程式就有,但不熟,所以不會運用。下次關於元件的控制我會先用FindComponent來思考 謝謝。 我想結案了,但!很奇怪,不知道是為何,找不到結案的功能。有固定的操作順序才會出現結案的功能嗎? 可能是我在發問的時候,沒有選擇問題的原故,因此沒有結案的功能 pceyes 前輩得分,謝謝您的回覆。
------
價值的展現,來自於你用哪一個角度來看待它!! |
taishyang
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
mybanksoft
初階會員 ![]() ![]() 發表:8 回覆:37 積分:29 註冊:2007-12-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |