引言: 如何設定成按Enter鍵,即如同使用滑鼠去點Button鍵?

引言: 何謂"先設定Focus到Button",Sorry!我是BCB新手,請多包含詳盡說明!謝謝!! 需設定"OnKeyDown"嗎?

void __fastcall TForm1::FormActivate(TObject *Sender)
{
   Button1->SetFocus();
}    void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ShowMessage("OK");
}
 

     void __fastcall TFormParam::FormKeyPress(TObject *Sender, char &Key)
{
  switch (Key)
  {
    case VK_RETURN:
    case VK_DOWN: Perform(WM_NEXTDLGCTL,0,0);
    break;        case VK_UP: Perform(WM_NEXTDLGCTL,1,0);
    break;        default:
    break;
  }
}    

     void __fastcall TFormParam::FormKeyPress(TObject *Sender, char &Key)
{
  switch (Key)
  {
    case VK_RETURN: Button1Click(Sender);
    break;
    default:
    break;
  }
}    

引言:如何設定成按Enter鍵,即如同使用滑鼠去點Button鍵?

您的意思是指說,按下鍵盤的Enter鍵後,SpeedButton就會被Click嗎??? 可以參考下面的code試試 先將Form的KeyPreview的屬性設定為true

 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key==13)
  SpeedButton1->Click();
}    void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
 ShowMessage("按鈕被按到了~~");
}
 

希望沒有誤會您的意思.. 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 -

引言: Sorry!我照做,應是可以!可是我的Button是用"SpeedButton",compiler後,出現 "SetFocus is not a member of TSpeedButton",應要如何處理?