procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key='+' then
begin
form2.ShowModal;
key:=#0; //关键此步骤
end;
end;
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key='+' then
begin
form2.ShowModal;
key:=#0; //关键此步骤
end;
end;