delphi - 自动允许 Ctrl+A 选择 TMemo 中的所有内容？

Question

在 Delphi 7 的 TMemo 控件中，尝试使用组合键 Ctrl + A 来选择全部不会执行任何操作(不会选择全部)。所以我做了这个程序:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  C: String;
begin
  if ssCtrl in Shift then begin
    C:= LowerCase(Char(Key));
    if C = 'a' then begin
      Memo1.SelectAll;
    end;
  end;
end;

有什么技巧可以让我不必执行此过程吗？如果没有，那么这个过程看起来还可以吗？

Answer 1

这更优雅:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^A then
  begin
    (Sender as TMemo).SelectAll;
    Key := #0;
  end;
end;