請教各位: 我在作master與detail資料表時,要使用enter鍵來代替tab鍵跳到下一個 輸入dbedit,我在form的keypress作以下程式 if key=#13 then begin key := #0; perform(WM_NEXTDLGCTL, 0, 0); end; 可使在form內的dbedit可以照著enter鍵的順序書入,但是detail的dbgird 資料確無法按照tab鍵的方式照順序書入,有什麼方法可以解決嗎

.... type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private   procedure  OnMessage(var Msg: Tmsg; var Handled: Boolean);     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.OnMessage(var Msg: Tmsg; var Handled: Boolean); begin if Msg.message=WM_KEYDOWN then if  msg.wParam =vk_return  then begin postmessage(msg.hwnd,WM_KEYDOWN,vk_Tab,0); handled:=true; end;    inherited; end;        procedure TForm1.FormCreate(Sender: TObject); begin application.onMessage:=onMessage; end;    end.    这样就可以将您from 中所有vcl物件的enter方式改成tab方式了，try!