請問一下 我希望當我程式開始執行後 游標能在我所指定的Edit.Text上閃爍 且也已經選取好某一Button 只要按Enter不用用滑鼠點選就可進入的方法 就像是在Google搜尋引擎中 游標已在其搜尋欄位中閃爍 輸入搜尋值後 只要按Enter不用特意用滑鼠點 就可搜尋了 謝謝

(1)已經選取好某一Button 就是一開始把焦點設在這個button上面 只要把taborder 設成 0 (2)只要按Enter不用用滑鼠點選就可進入的方法 您是說按下Enter就觸發Button 嗎. 在Edit 的OnKeyPress Event底下打入 if (Key == '\r') <--判斷是不是Enter Button1->OnClick(Button1); //如果是就叫Button按一下

Turboted 版主的方法是可行的。 稍作補充 : 若你想一開始游標停在非 TabOrder=0 的 Edit / 其他控件，可在 Form 的 Active Control 選那控件 若你想使一個 Button 成為按 Enter 的預設按扭，可在該 Button 的 Default 設 True，但若你想只在那 Edit 中時該按 Enter 才會引發，即Turboted 版主的方法是較好的方法

turboted方法是可行的。    补充一下： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin //设置BUTTON1焦点，告诉用户是有BUTTON1执行的 button1.SetFocus ; //调用BUTTON1的事件 Button1Click(nil); end; end;    //已经定义的BUTTON1的事件 procedure TForm1.Button1Click(Sender: TObject); begin showmessage(EDIT1.TEXT); end;    风花雪月 e梦情缘

------
风花雪月 e梦情缘