如何在TEdit中将键盘输入的英文单引号'变成中文单引号 ’

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  CurText: String;
  CurPos, CurLng: integer;
begin
  if key ='''' then
  begin
    key := #0;
    CurText := TEdit(Sender).Text;
    CurPos := TEdit(Sender).SelStart;
    CurLng := TEdit(Sender).SelLength;
    if CurLng >0 then
      Delete(CurText, CurPos+1, CurLng);
    Insert('’', CurText, CurPos+1);
    TEdit(Sender).Text := CurText;
    TEdit(Sender).SelStart := CurPos+2;
  end;
end;
版权所有 2004 cjsh 保留所有权利。我的邮箱：wjh_wy@163.com