我在FormKeyPress寫了以下程式，可是只有儲存和取消有作用，其它兩個卻沒有，這是為什麼呢？煩請大大們幫我解惑... IF (key=#13) then//儲存 button9click(sender); If (key=#27) then//取消 begin query1.Cancel; edit1.Text := ''; edit2.Text := ''; end; IF (key=#46) then//刪除 button7click(sender); IF (key=#45) then//新增 button5click(sender);

IF (key=#46) then//刪除 button7.click; IF (key=#45) then//新增 button5.click; TRY TRY SEE

也是不行，但是把button9改成click卻一樣能執行@@

應該是沒有問題才對, 除非你用鍵盤右邊的數字鍵且NUMLOCK在off狀態 試試在Button7Click及button5Click上設Break Point看程式是否會執行到此

若鼠標在edit上，則按delete會刪除鼠標右方一個字元，若force在資料錄上，則兩個完全沒有作用。 若在刪除、新增設中斷點，pass count=0。(代表沒執行到？) 若在儲存、取消設中斷點，則不能編譯，取消中斷點再編譯則呼叫表單時出現BDE error$2501。

Edit1KeyPress有指向FormKeyPress嗎??

引言: Edit1KeyPress有指向FormKeyPress嗎??

不懂你的意思ㄟ？和edit1有什麼關係啊？ 儲存和取消這兩個功能鍵能正常使用，我只是設中斷點看看和不能使用的功能鍵有何不同現象。

因為你的事件寫在FormKeyPress,Edit1KeyPress沒有指向FormKeyPress的話,那就不會觸動FormKeyPress的事件阿.. TRY TRY SEE

引言: 不懂你的意思ㄟ？和edit1有什麼關係啊？ 儲存和取消這兩個功能鍵能正常使用，我只是設中斷點看看和不能使用的功能鍵有何不同現象。

我知道了，你指的應該是把form上的button的keypress事件指向formkeypress吧，我剛試了一下，用上下方向鍵來做上筆、下筆的移動，但沒有效果。 我是這樣寫的： If (key=#38) then button2.Click;//↑上筆 IF (key=#40) then button3.Click;//↓下筆

你回顧一下你這篇文章,問題講的滿亂的..你要不要在整理一下你的問題,順便把有問題的部分完整的code post上來ㄋ,不然不知道你到底哪裡出錯..

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin//鍵盤控制 IF (key=#13) then button9.click;//enter儲存 If (key=#27) then//esc取消 begin query1.Cancel; edit1.Text := ''; edit2.Text := ''; end; IF (key=#46) then button7.Click;//delete刪除 IF (key=#45) then button5.Click;//insert新增 If (key=#38) then button2.Click;//↑上筆 IF (key=#40) then button3.Click;//↓下筆 IF (key=#37) then button1.Click;//←首筆 IF (key=#39) then button4.Click;//→末筆 end; 除了儲存和取消鍵有作用，剩下的按鍵都沒有作用，按鍵我都有把BUTTON的KEYPRESS指向FORMKEYPRESS。

你應該把所有事件寫在個別button的click就可以了這樣比較單純..因為你有事定像(key=#46) 等等這一些..所以要去按到相對應的key才會有作用喔...

我把它改寫到click下了，但編譯時卻說我沒有 [Error] customer01.pas(189): Undeclared identifier: 'key' ，為什麼要宣告啊？那不是內定義的字嗎？ 我發現在dbgrid點一下後，就能用上下鍵來移動了，可是這樣還是要動到滑鼠，那設上下鍵就失去意義了@@ 若是在一進入表單就按上鍵，就會跳到dbgrid，就能用上下鍵移動，而不用寫任何程式。 若是一進入表單就按下鍵，就會跳到dbedit1。

天阿..請你把問題講清楚..ok??一開始是FormKeyPress,而怎麼又變成dbgrid了ㄋ?? 真的建議,你把整本書k完再來寫吧.. 無力中...

我只是把我所試到的結果都拿出來討論，看能不能找出個所以然，問題一直都是"按下按鍵卻沒反應"！！！沒有變過。 而DBGRID只是我各方嚐試的過程中，在某種況狀下會有反應的元件。 這樣說有沒有比較清楚了....

請問會不會是你的那兩個button的click事件有作什限制，所以不能執行？ 你可以把整個程式上傳，好讓各位高手先進幫你解決。

檔案已上傳，有勞各位大大們了.... 尤其是CHIH，真是辛苦你了@@

這個我遇過。 不要把事件FormKeyPress改寫在FormKeyDown或FormKeyUp 就可以了。 因為FormKeyPress對某些按鍵會沒有作用 FormKeyDown則無此限制 月夜 光明 藍更愁

------
月夜 光明 藍更愁