各位大大好: 小弟自行練習寫的打字程式又出問題啦~~ 因為我的程式輸入法主要配合使用倉頡輸入法,因此想盡量支援其完整功能, 倉頡中有以下符號輸入法則: 使用SHIFT+ALT+O(倉頡碼"人")-->全形句點"。" 使用SHIFT+ALT+H(倉頡碼"竹")-->全形上引號"「" 使用SHIFT+ALT+J(倉頡碼"十")-->全形下引號"」" 我想在程式中實現(本以為那是輸入法內建,結果不是,要自己寫) 程式碼如下: < class="code"> void __fastcall TMainForm::KeyinPaperAreaKeyUp(TObject *Sender, WORD &Key,TShiftState Shift) { if (Shift.Contains(ssShift) && Shift.Contains(ssAlt)) { if (Key == 79) KeyinPaperArea->Text = "。"; else if (Key == 72) KeyinPaperArea->Text = "「"; else if (Key == 74) KeyinPaperArea->Text = "」"; } } 其中KeyinPaperArea是RichEdit元件,Key值便是上述3個對應按鍵, 執行結果...完全不理我 >>Text = "。">Text內容仍然是NULL!! 因此畫面上當然沒有任何改變... 請教各位看倌,是寫法上出了問題?還是輸入法內部作了什麼事情?(按按鍵會顯示對應的字出來) 先謝謝各位看倌~~ 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

ENIX007你好：
(1)請將MainForm的KeyPreview屬性設為true.
(2)KeyinPaperArea->Text ＋＝ "。";這段程式可能無法插入文字，應改為
SendMessage(KeyinPaperArea->Handle,EM_REPLACESEL,true,(LPARAM)(LPCSTR)"。");
以上建議希望對你有幫助．     
        

感謝您解決了這個困擾我已久的問題< > 果然還是要靠 > 能請教您有關這方面的心得嗎?< > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~

------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~