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