procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);begin if key=‘+‘ then begin form2.ShowModal; key:=#0; //关键此步骤 end;end;
Delphi Edit输入+号（加号）,不允许显示输入符号，清空Edit，显示事件
原文：http://www.cnblogs.com/lantianhf/p/5041428.html
