Tự động cho phép Ctrl + A chọn tất cả trong TMemo?

Question

Trong điều khiển TMemo Delphi 7, một nỗ lực để làm tổ hợp phím Ctrl + A để chọn tất cả không làm bất cứ điều gì (không chọn tất cả). Vì vậy, tôi đã thực hiện thủ tục này:

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ó một thủ thuật vì vậy mà tôi không cần phải làm thủ tục này? Và nếu không, thì thủ tục này có ổn không?

Answer 1

Đây là tao nhã hơn:

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

Answer 2

tôi đã sử dụng các câu trả lời và thảo luận trước để tạo ra một thành phần độc lập mà xử lý sự kiện KeyPress mà tôi sử dụng trong các chương trình thử nghiệm nhỏ.

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; 

Một cách khác để thêm "chọn tất cả" hành vi cho tất cả các thành phần trên một hình thức là thêm một danh sách hành động để hình của bạn với một tiêu chuẩn chọn tất cả các hành động.