Automatically allowing Ctrl+A to select all in a TMemo?

Question

In Delphi 7\'s TMemo control, an attempt to do the key combo Ctrl + A to select all does not do anything (doesn\'t select all). So I\'ve made this procedure:

<

Answer 1

I used the previous answer and discussion to create a standalone component which handles the KeyPress event which I use in small test programs.

TSelectMemo = class(TMemo)
protected
  procedure KeyPress(var Key: Char); override;
end;

...

procedure TSelectMemo.KeyPress(var Key: Char);
begin
  inherited;
  if Key = ^A then
    SelectAll;
end;

Another way of adding "select all" behavior to all components on a form is to add an action list to your form with a standard select all action.

Answer 2

This is more elegant:

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