在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;
有没有窍门,所以我不必这样做？如果没有,那么这个程序看起来好吗？
解决方法
这更优雅：
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = ^A then
begin
(Sender as TMemo).SelectAll;
Key := #0;
end;
end;