在memo中使用ctrl+A 快捷键

Question

在memo或者edit中,自动支持ctrl+c和ctrl+v,但不支持全选ctrl+A.
可否通过代码实现?望指教.

Answer 1

当然可以
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (key = 65) then memo1.SelectAll;
end;

Answer 2

在Memo的KeyDown事件中加入判断，是否为ctrl+A.
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if  ( ssCtrl in Shift ) and (Key = ord('A')) then
    memo1.SelectAll;
end;