請教各位先進：    在我的程式中有數十個TEdit components 我的程式想做的是 當外部觸發發生時，對目前focused的TEdit填入一段字串 然後將focus移至下一個tag order的TEdit    我在Delphi討論區找到可能可以參考的程式 http://delphi.ktop.com.tw/topic.php?topic_id=21877

  for i := 0 to pred(ComponentCount) do //跑迴圈找元件
  begin
    if ( Components[i] is TEdit ) then //如果是Tedit類別元件
    begin
       if ((Components[i] as TEdit).Text = '')  then 
                                       //如果該元件的Text 是空白
       ............
       ............
    end;
  end ;

我想請教的是 我該如何把他轉換成BCB語言，特別是 Components[i] is TEdit (Components[i] as TEdit).Text 這兩個部分 或者是不是有其他更好的建議？ 謝謝大家的幫忙！

KCHong您好:    

引言: 在我的程式中有數十個TEdit components 我的程式想做的是 當外部觸發發生時，對目前focused的TEdit填入一段字串 然後將focus移至下一個tag order的TEdit

試試下面的code

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i=1;
 ((TEdit *)FindComponent("Edit" IntToStr(i)))->Text="您要輸入的字串";
  
}
 

由i的選擇應該可以達到您要的功能吧... 不曉得有沒有誤會您的意思... 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 -

TComponent *TheComponent = Components[i]; TClass Class = TheComponent->ClassType(); AnsiString ss = Class->ClassName(); if (ss == "TEdit") ((TEdit*)TheComponent)->Text = ss;

謝謝兩位的指點 我的程式已經初步可以動作了    可能是我沒把問題說的很清楚 還有一個問題是 當初是希望是利用這個 for 迴圈找出目前 focused 的物件 因此對整個 form 上的物件作蒐尋 可是我發現這樣做似乎很沒效率 有沒有一個屬性或方法可以直接找到這個

引言: 謝謝兩位的指點 我的程式已經初步可以動作了 可能是我沒把問題說的很清楚 還有一個問題是 當初是希望是利用這個 for 迴圈找出目前 focused 的物件 因此對整個 form 上的物件作蒐尋 可是我發現這樣做似乎很沒效率 有沒有一個屬性或方法可以直接找到這個 focused 物件呢？ 再麻煩大家了 謝謝~~~

你好: 可以試試看 TEdit *tFocus; tFocus=(TEdit *)ActiveControl; if(dynamic_cast(tFocus)){ //tFocus 就是擁有 Focus 的那個 TEdit }

ActiveControl->ClassName(); 或 ActiveControl->Name;

我只是想在事件底下得知目前的元件類別