String in Memo einfügen /// Cursor in memo festlegen

[Sharky]

Hai Moin,

einfach mittels SelStart den Carret setzen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 s1,
 s2 : string;
 spos : Integer;
begin
  spos := memo1.SelStart;
  s2 := '<insert>';
  s1 := memo1.Text;
  insert(s2,s1,memo1.SelStart+1);
  memo1.Text := s1;
  memo1.SetFocus;
  memo1.SelStart := spos + Length (s2);
end;