Question

delphi richedit 如何在字符中间插入字符？

比如说 '1234567890'这时我的光标在按下button1 在那里加一个‘0’应该怎么写？

Answer 1

procedure InsertChar(ARichEdit: TRichEdit;AKey: Char);
begin
ARichEdit.SetFocus;
ARichEdit.Perform(WM_CHAR,Ord(AKey),1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
InsertChar(RichEdit1,'0');
end;