Consentendo automaticamente Ctrl + A di selezionare tutto in un TMemo?

Question

Nel controllo TMemo di Delphi 7, un tentativo di fare la combinazione di tasti Ctrl + A per selezionare tutto non fa nulla (non seleziona tutto). Quindi ho effettuato questa procedura:

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; 

C'è un trucco in modo che non debba eseguire questa procedura? E se no, allora questa procedura sembra OK?

Answer 1

Questo è più elegante:

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

Answer 2

ho usato la risposta e la discussione precedente per creare un componente autonomo che gestisce l'evento Pressione che uso in piccoli programmi di test.

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; 

Un altro modo di aggiungere "Seleziona tutto" comportamento a tutti i componenti in un modulo è quello di aggiungere una lista di azioni per il modulo con uno standard di selezionare tutte le azioni.