RichEdit的问题

Question

我在richedit的onkeydown事件中使用Ctrl+Enter组合键清空，如下如示：
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=13)and(ssCtrl in shift)then
self.RichEdit1.Clear;
end;
结果却发现，清空后，为两空行，光标始终在第二行的位置，我想全部清空，光标移动最动最开始的位置，同时不要什么空行，该怎么做？

Answer 1

我在richedit的onkeydown事件中使用Ctrl+Enter组合键清空，如下如示：
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=13)and(ssCtrl in shift)then
self.RichEdit1.Clear;
end;
结果却发现，清空后，为两空行，光标始终在第二行的位置，我想全部清空，光标移动到最开始的位置，同时不要什么空行，该怎么做？

Answer 2

把代码写到keyup事件里就可以了

Answer 3

我试了，不太好，需要先按enter再按ctrl才可以，用户不习惯

Answer 4

//try
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN:
    if ssCtrl in Shift then
    begin
      { TODO }
      TRichEdit(Sender).Clear;
    end;
  end;
end;procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if GetKeyState(VK_CONTROL) and $8000 = $8000 then
    Key := #0;
end;

Answer 5

伴水清洁：
　　你好，您的第二过程可以实现，第一个不行，我现在还想问一个问题，怎么把font.style属性存入字符串和从字符串中恢复