1：var
Hot: boolean;

procecure form1.formkeydown(.....);
begin
if (key = VK_K) and (ssShift in shift) then
if hot then
begin
//處理ctrl kk
hot := false;
end
else hot := true
else
hot := false;
end;
2：可以設定快捷鍵，也可以在程式中設定，如上
3：set Form1.KeyPreview to true.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (Char(Key) in ['K', 'k']) then
ShowMessage('Ctrl K');
end;


4：一般的就樓上的onkeydown就可以了
最好是設定一個全域性的熱鍵，系統中的任何地方都可以響應到：
下面這個帖子裡很多：看看，對你幫助很大：
http://delphibbs.com/delphibbs/dispq.asp?lid=2285891
5

.delphi 執行提示[嚴重錯誤]enter_form.pas(33):file not found:tflateditunit.dcu 請問怎麼解決？謝謝

這是因為Delphi的環境配置路徑錯誤。按照下面方式新增：

主選單Tool->Environment options->點選Library->library path:

新增上"$(DELPHI)/Lib;" $(DELPHI)/Bin  $(DELPHI)/Imports  $(DELPHI)/Projects/Bpl  $(DELPHI)/Rave5/Lib  （位置：第一個往後排即可）就好了

s