請教各位武林中的高手一個問題>"< 如果我想在程式中利用Ctrl Enter來設定快速鍵(就是先按下鍵盤中的Ctrl然後再按下Enter)，請問各位高手要怎麼做? 舉例來說:像是F5的快速鍵在程式是VK_F5請問Ctrl Enter是什麼? 謝謝各位的幫忙!小弟萬分感謝

您好： 先將Form的Keypreview設為true,然後寫下以下程式. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift=[ssCtrl]) and (Key=13) then ShowMessage('1234'); end; 要使用Ctrl Enter必須用組合的方式. 你也可以寫成 if (Shift=[ssCtrl,ssAlt]) and (Key=13) then ShowMessage('1234'); 表示按下Ctrl Alt Enter會秀出一個訊息。

试试看这样直接给需要设定Shortcut的控件直接赋值 ＜Component＞.ShortCut:=ShortCut([VK_RETURN],[ssCtrl]); 记得曾经写过可以任意设定Hotkey的程式,是这么做的. ShortCut函数在Menus单元中定义, 您还可以使用TextToShortCut函数定义更加灵活的Hotkey. Justin Shen

------
====================
我为一切作努力！
Justin Shen