▲▲▲如何在RichEdit中按+键后显示Form2，且不显示+符号▲▲▲

Question

请问，如何在RichEdit中按+号键后显示Form2，且不在RichEdit中显示+符号？
如何写代码？

Answer 1

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  s: string;
begin
  Memo1.Lines.Add(IntToStr(Ord(Key)));
  if (Key = VK_ADD) or
     ((ssShift in Shift) and (Key = 187)) then//Shift + '+'
  begin
    Key := 0;
    PostMessage(RichEdit1.Handle, WM_KEYDOWN, VK_BACK, MakeLong(0, MapVirtualKey(VK_BACK, 0)));
    Form2.Show;
  end;
end;