請教各位前輩, 1.假設form上有DBEdit1、DBEdit2~DBEdit10, 我們如何在執行編輯、新增時,讓游標跑到第一個欄位DBEdit1呢? 要如何由程式碼去控制游標停在form中指定的元件上呢? 2.希望在DBEdit輸入狀態時,改變他的底色, 離開後回恢原本顏色,除了在 DBEdit.onEnter DBEdit.onExit 去控制外,還有更好的方法嗎? 因為使用此法在有10個元件就要有20個事件來處理, 總覺得太浪費了? 麻煩各位前輩了,謝謝!!

------
corn

引言: 請教各位前輩, 1.假設form上有DBEdit1、DBEdit2~DBEdit10, 我們如何在執行編輯、新增時,讓游標跑到第一個欄位DBEdit1呢? 要如何由程式碼去控制游標停在form中指定的元件上呢? 2.希望在DBEdit輸入狀態時,改變他的底色, 離開後回恢原本顏色,除了在 DBEdit.onEnter DBEdit.onExit 去控制外,還有更好的方法嗎? 因為使用此法在有10個元件就要有20個事件來處理, 總覺得太浪費了?

以下程式可以移動 Mouse 到元件左上方

procedure TForm1.Edit1Enter(Sender: TObject);
var
  FPoint: TPoint;
  FRect: TRect;
begin
  FRect := TEdit(Sender).ClientRect;
  FPoint.x := FRect.Left;
  FPoint.y := FRect.Top;
  FPoint := TEdit(Sender).ClientToScreen(FPoint);
  SetCursorPos(FPoint.x, FPoint.y);
end;

至於顏色變化可以考慮使用 DOSMOVE v2.0 ActiveColor 及 EnterColor 屬性 可設定進 Component 的顏色. http://delphi.ktop.com.tw/topic.php?topic_id=25454

danny前輩感謝你這麼快的回覆, 我講錯意思了,我不是要滑鼠的指標移到DBEdit上, 而是希望在我按下編輯按鈕時, 就會跑到我要指定的欄位,並且進入編輯狀態, 像我希望當我在DBNavigator按下修改時, 就會自動進入到DBEdit1或DBEdit2....的編輯狀態, 所以不是滑鼠的指標,sorry真的很抱歉我沒有講清楚. 另一個變換底色的問題,因為我想在不使用別的元件下, 還能有什麼做法,所以也感謝你提供的元件喔,感謝!!

------
corn

s9054469 兄： 下面就是你需要的效果了！ 此例用

sos_admin兄: 非常感謝你的幫忙,尤其是 [2、輸入狀態時,改變他的底色,離開後回恢原本顏色] 這個的解答,小弟真是感激不盡,這樣的語法,以前從書本上有練習過, 但都未能實際應用上來,如此簡單明瞭的應用, 小弟真的要非常感謝你的指導,謝謝你! ~做中學,學中做~

------
corn