Per Button Text in Editfeld einfügen nicht das was ihr meint

[Gentleman]

ich glaub wir hatten soetwas schon mal...


aber es müsste in etwa so funzen:

Delphi-Quellcode:

var
  s1, s2, insert: String;
begin
  s1:= Copy(memo1.text, 1, memo1.CaretPos.X);
  s2:= Copy(memo1.text, memo1.CaretPos.X + 1, Length(memo1.text));
  insert:= 'dein text';
  memo1.text:= s1 + insert + s2;
  memo1.SelStart:= length(s1 + insert);
end;

achtung: nicht getestet!