В 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;
Есть ли трюк, чтобы мне не пришлось выполнять эту процедуру? А если нет, значит, эта процедура выглядит нормально?