delphi中如何响应键盘的组合键（如：ctrl k）

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

 

转载于:https://www.cnblogs.com/rayhuang/archive/2010/04/10/1709249.html