标签：
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
