新手發問請多指教.. 我想問這個問題.. 我想在程式執行時..在一個TEdit上輸入之後按Enter.. 然後Tab的Focus也就是那個虛線的框框..自動跳到確定的Button上.. 這樣我只要再按一次Enter就好..而不用再去動滑鼠.. 我現在做法就是在Edit1的OnKeyPress事件中判斷是不是Enter按下.. 但是我不知道要怎麼把Tab的Focus移到Button.. 游標始終停在Edit1裡閃爍.. 請問該怎麼辦阿..教教我.. 我翻了好多文章了..找不到.. 而且我也搜尋不到..因為我也不太知道要搜尋什麼key word.. 只好貼文章求救了.. 發表人 - Gemi0305 於 2003/12/20 23:23:43

引言: 新手發問請多指教.. 我想問這個問題.. 我想在程式執行時..在一個TEdit上輸入之後按Enter.. 然後Tab的Focus也就是那個虛線的框框..自動跳到確定的Button上.. 這樣我只要再按一次Enter就好..而不用再去動滑鼠.. 我現在做法就是在Edit1的OnKeyPress事件中判斷是不是Enter按下.. 但是我不知道要怎麼把Tab的Focus移到Button.. 游標始終停在Edit1裡閃爍.. 請問該怎麼辦阿..教教我.. 我翻了好多文章了..找不到.. 而且我也搜尋不到..因為我也不太知道要搜尋什麼key word.. 只好貼文章求救了..

阿..自問自答..剛post完才想到..我不是用了Focus這個字眼.. 怎麼沒用這個字搜尋.. 結果一搜尋下果然找到了.. 原來就是用Form下有一個ActiveControl.. 將他設為你想要的元件就好了..例如..

 
void __fastcall TForm::Edit1KeyPress(TObject *Sender, char &Key)
{
    if(AnsiString(Key)=="\r"){
        ActiveControl=Button1;
    }
}

原來這麼簡單..如果寫得不好請多指教.. 如果板主覺得我太豬頭就砍掉好了..

您可以使用 Button1->SetFocus(); void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { Button1->SetFocus(); } //--------------------------------------------------------------------------- 而 ActiveControl 是當我的畫面有很多元件時...去判斷此時誰得到 Focus 的方式. 例 if(ActiveControl == Edit1) { } else if(ActiveControl == Edit2) { }

這個是只要你按下enter它就會往下跳一格，不管是button or edit，你參考看看 void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key) { if( (Key == VK_RETURN) && (CheckBox1->Checked == true)) { Key=0; // swallow the key here Perform(WM_NEXTDLGCTL,0,0); // focus next control } }

引言: 這個是只要你按下enter它就會往下跳一格，不管是button or edit，你參考看看 void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key) { if( (Key == VK_RETURN) && (CheckBox1->Checked == true)) { Key=0; // swallow the key here Perform(WM_NEXTDLGCTL,0,0); // focus next control } }

Dear foxrabbit 當您在用 FormKeyPress Event 時 , 必須 Focus 在 Form 上，可是當Form 上有其他類似 TEdit ( 會得到 Focus 的元件) 時，Focus 就很難回到 Form 上，所以像您所說的 "會往下跳一格" ，我想..應該會失效吧... 如果有誤解的地方...歡迎來討論~~~ ^^

Dear foxrabbit    我參考您的做法...寫以下的範例...這應該是您想要表達的吧...^^    

 
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
        Edit1->OnKeyPress = EditKeyPress ;
        Edit2->OnKeyPress = EditKeyPress ;
        Edit3->OnKeyPress = EditKeyPress ;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::EditKeyPress(TObject *Sender, char &Key)
{
        if( (Key == VK_RETURN)  )
        {
                Key=0; // swallow the key here
                Perform(WM_NEXTDLGCTL,0,0); // focus next control
        }
}
//---------------------------------------------------------------------------