//请参考
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN: if Shift = [ssCtrl] then ShowMessage('Ctrl+Enter');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN: if Shift = [ssCtrl] then ShowMessage('Ctrl+Enter');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;
解决方案 »
- TwindowsMediaplayer控件,playlist的使用问题
- 问大家个小问题~关于edit
- 急急急!!!连续执行Sql语句,CPU使用率很快就达到100%!请各位大侠帮忙!
- Borland年终答谢三部曲,回报社区成员(可以申请Delphi2005试用的哦...)
- 1000分求一压缩文件rar的解压密码,如不够,可带报酬,绝不食言!!!
- 关于连接数据刷新!
- 请教高手 Frame 上的控件(图片,文本等) 怎么打印出来? 怎么作预览?
- 在次请求帮忙(需要原代码)
- 请问关于TStrings类的用法.
- cxGrid从表单元格编辑状态的问题,请教高手。。。
- 我需要检测一个同目录的文件是否存在,然后再决定是否执行某种动作,这样的代码怎么写?
- 请教高手,MDI子窗体的问题
不瞒你说,
我正做一个聊天室的课程设计,
本想用enter发信息,
又想聊天惯了用ctrl+enter比较习惯
况且不知道怎么用判断ctrl键
我原以为shift只能判断shift键呢.
多谢了
Left = 392
Top = 64
object Action1: TAction
Caption = 'Action1'
ShortCut = 16397//Ctrl+Enter
end
end