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