Delphi中一些常用的组合键值

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码和组合键值

来自为知笔记(Wiz)

转载于:https://www.cnblogs.com/xe2011/p/3372942.html