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
