Question

delphi~~richedit.lines.add 后，如何让光标还在插入的那行？？

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if speedbutton4.Down then richedit1.lines.Add('0.')
else richedit1.Lines.clear;
end;

Answer 1

procedure TForm1.SpeedButton4Click(Sender: TObject);var Index: Integer;
begin Index := RichEdit1.SelStart; // 记录当前行
if speedbutton4.Down then richedit1.lines.Add('0.')
else richedit1.Lines.clear; RichEdit1.SelStart := Index; // 插入以后重置当前行标
RichEdit1.SetFocus; // 设置焦点
end;