Delphi中一些常用的组合键值
CTRL+A: #1
CTRL+B: #2
CTRL+C: #3
CTRL+D: #4
CTRL+E: #5
CTRL+F: #6
CTRL+G: #7
CTRL+H: #8
CTRL+I: #9
CTRL+J: #10
CTRL+K: #11
CTRL+L: #12
CR: #13 //回车
M ?
CTRL+N: #14
CTRL+O: #15
CTRL+P: #16
CTRL+Q: #17
CTRL+R: #18
CTRL+S: #19
CTRL+T: #20
CTRL+U: #21
CTRL+V: #22
CTRL+W: #23
CTRL+X: #24
CTRL+Y: #25
CTRL+Z: #26
ESC: #27
CTRL+: #28
CTRL+]: #29
SHIFT+CTRL+-:#30
DEL: #127
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (Key = $46) then // <Ctrl+F>
ShowMessage('<Ctrl+F>');
end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #6 then Key := #0;
end;
//这里要区分ASCII码和组合键值