请教各位高手 怎样屏蔽掉Memo控件的键盘事件

Question

请教各位高手 怎样屏蔽掉Memo控件的键盘事件

Answer 1

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

Answer 2

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

Answer 3

在keypress事件中：
key:=#0;//什么键盘都不响应答案满意么

Answer 4

嘿嘿，各位大哥，小弟刚才 去试了一下。不行呀PageDown & PageUp 事件还是没有被蔽掉。怎么办？〉