我的問題是.如果元件不是陣列 例如 Form[1] Form[2] 而是 Form1 Form2 那我能不能用迴圈去控制? 就像JavaScript的 eval("Form" 1).width=100 那樣去控制? 謝謝

------
KUSO 無處不在

for (int i = 1; i <= 2; i ) { ((TForm *)FindComponent("Form" IntToStr(i)))->Width=100; }

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

感謝回覆 我發現我問錯了.我真正的問題是 我有幾個類別例如 TForm2 TForm3 .... 然後我會以 MyForm3=new TForm3(Application);MyForm3->Show(); 之類的方式開啟 我想把這個開啟的動作寫成函式 卻不知道怎麼樣給參數才能讓函式知道要用哪個類別 謝謝

------
KUSO 無處不在

kagaya 您好：    您試試看下列這些敘述是不是您要的：

if(Sender->ClassNameIs("TForm2")){
    TForm2 *frm = (TForm2*)Sender;
    int w = frm->Width;
    ....
}else if(Sender->ClassNameIs("TForm3")){
    ....
}else if(Sender->ClassNameIs(...)){
    ....
}

謝謝大大的回答 不過用if去判斷的話.這個函式就有點失去意義了

------
KUSO 無處不在

void __fastcall EveryForm(TObject *Sender) { ((TForm *)Sender)->Width=100; } 把Form當做Object傳入Function就可以共用同一個Frunction了。

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

((TForm *)Sender)->Width=100; 這裡做的強制轉型好像是錯的 因為應該是 ((TForm3 *)Sender) 這樣吧? 想想好像沒其它方法.我自己把它結案吧 謝謝兩位大大

------
KUSO 無處不在