我有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

編輯記錄

TButton(_F.FindComponent('Button1')).Caption := 'xxx';
end;

------
努力會更接近成功

謝謝，果然可用
原來FindComponent這指令我現有的程式就有，但不熟，所以不會運用。下次關於元件的控制我會先用FindComponent來思考
謝謝。


我想結案了，但!很奇怪，不知道是為何，找不到結案的功能。有固定的操作順序才會出現結案的功能嗎?

可能是我在發問的時候，沒有選擇問題的原故，因此沒有結案的功能 pceyes 前輩得分，謝謝您的回覆。

------
努力學習Rave

編輯記錄

沒有寄怪, 只怪你發問題前不先看清楚新文章的主旨說明, 就一昧的求問

"請確實做好主題分類，非問題類別的文章將不具結案功能"
===================引 用 mybanksoft 文 章===================
我想結案了，但!很奇怪，不知道是為何，找不到結案的功能。有固定的操作順序才會出現結案的功能嗎?

可能是我在發問的時候，沒有選擇問題的原故，因此沒有結案的功能 pceyes 前輩得分，謝謝您的回覆。

你可以在你最上面的那篇文章的右上角有個 修改的按鈕，進去後就可以把本次的討論類型做改變，
先選擇問題，按下修改後，再選擇 pceyes 大就行了~~! 適時的結案對回答者也是一種鼓勵哦~!


===================引 用 mybanksoft 文 章===================
謝謝，果然可用
原來FindComponent這指令我現有的程式就有，但不熟，所以不會運用。下次關於元件的控制我會先用FindComponent來思考
謝謝。


我想結案了，但!很奇怪，不知道是為何，找不到結案的功能。有固定的操作順序才會出現結案的功能嗎?

可能是我在發問的時候，沒有選擇問題的原故，因此沒有結案的功能 pceyes 前輩得分，謝謝您的回覆。

------
價值的展現，來自於你用哪一個角度來看待它!!

幫忙改好了,現在可以結案了^_^

抱歉，這麼多人一起關注，反過來想可能是發問的太少，所以界面不熟。
謝謝各位，下次我會小心一點。謝謝

------
努力學習Rave