在表單有三個Edit，Edit1、Edit2、Edit3；當Edit1輸入內容為某個特定值時，按TAB遊標直接跳過Edit2，跑到Edit3。我把override SetFocusedControl函數，實作如下： if (Control = Edit2）and (TEdit(Control) = ‘’) then BEGIN ActiveControl := Edit3; Control := Edit3; END; inherited SetFocusedControl(Control); 但是現在輸入接收框是Edit3,但遊標卻在Edit2上。 多謝！！！

試試 

 
inherited SetFocusedControl(Control);
if (Control = Edit2）and (TEdit(Control) = ‘’) then
BEGIN
  //ActiveControl := Edit3; 拿掉
  //Control := Edit3;拿掉
  Edit3.SetFocus;
END;    

混心雜欲 棄修身~唉

------
唉~

问题已经解决了,以下两方法即可! function TForm1.SetFocusedControl(Control: TWinControl): Boolean; begin if (Control = Edit2)and (TEdit(Control).Text='') then BEGIN Control := Edit3; PostMessage(Edit2.Handle,WM_KILLFOCUS,0,0); PostMessage(Edit3.Handle,WM_SETFOCUS,0,0); END; Result := inherited SetFocusedControl(Control);//缺省处理 end; 这样也可以的, if (Control = Edit2) and (TEdit(Control).Text = '') then BEGIN Control := Edit3; SetActiveWindow(Application.Handle); END; inherited SetFocusedControl(Control); 發表人 - XaioBin 於 2005/04/18 22:13:36

用SetFocus

Sorry !! 插一下花    在 Edit1 的 OnExit 事件上加入下列程式碼即可

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if TEdit(Sender).Text = '' then // 自行指定特定值
    Edit2.SetFocus
  else
    Edit3.SetFocus;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Sorry !! 插一下花 在 Edit1 的 OnExit 事件上加入下列程式碼即可

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if TEdit(Sender).Text = '' then // 自行指定特定值
    Edit2.SetFocus
  else
    Edit3.SetFocus;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 因為在我做的系統中有很多類似的要控制的表單，所以就寫在父表單中 ．就不需要重複寫！