小弟想令RichEdit中caret上移，比如按F10是光标移到上一行，程序如下，但是不行： void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if (Key==VK_F10) RichEdit1->CaretPos.y -= 1; } 请各位指教，Thanks!

請問這樣可以嗎?  

 
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if (Key==VK_F10)
   {
       keybd_event(VK_UP, 0, 0, 0);
       keybd_event(VK_UP, 0, KEYEVENTF_KEYUP, 0);
   }
}    

如果我會錯意，煩請告知 國泰平安

Thank you very much!!!!