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

[Assun]

Hi !

wie kann ich realisieren, dass wenn ich ein Memo oder RichEdit feld habe und dort text drin steht,per button text einfügen kann ? aber so, dass der Text der schon drin steht nicht gelöscht ist und JETZ KOMMTS : dass der Text dort eingefügt wird, wo der Blinkende Cursor ist ?


Hoffe das war verständlich ausgedrückt....

Danke !

[fred.reichbier]

probier mal memo1.SelPos aus.
#edit: das gibt die Position vom Cursor an.
Versuch mal Insert('Der Text der eingefügt wird',Memo1.Text, Memo1.SelPos);

[Assun]

:wiejetzt:

gehts bitte ein bisschen genauer ?

thx trotzdem

[Assun]

danke !

[Chegga]

Hi,

falsche Sparte! :warn:
Was hat dein Problem mit Multimedia zu tun??? :gruebel:

MfG Marc

P.S.: Herzlich Willkommen in der DP! :dp:

[Assun]

sorry :roll: werd ich beim nächsten mal beachten

aber das Beispiel funktioniert nicht ! er kennt scheinbar "Sel" nicht !

[alcaeus]

Die Eigenschaft heisst auch nicht "SelPos", sondern "SelStart"

Greetz
alcaeus

[DP-Maintenance]

Dieses Thema wurde von "Luckie" von "Multimedia" nach "VCL-Komponenten und Controls" verschoben.
Warum wird der Thread nicht einfach gemeldet?

[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!

[arbu man]

Guck mal nach SelText das sollte eigentlich auch gehen