Убрать лишние звуки из Memo

[psycho-coder]

Сообщение от MadReason

удали конкретную мелодию из папки виндоус/медиа

Зачем же? Есть более гуманный способ))
Вот держи:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Msg: TMsg;
begin
  if ((Key = ord('A')) and (ssCtrl in Shift)) then
  begin
    PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
    Memo1.SelectAll;
  end;
end;

К сожалению объяснить, что там происходит я не могу, сам взял откуда то((

[mihali4]

"Конкретная" - это звук ошибки.

[Arigato]

Да просто

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

[psycho-coder]

Прикольно)