Text aus Listbox in Richedit einfügen

[ösichemiker]

Hi
hab probiert den Item einer listbox in richedit anzuzeigen:
s, rtf: String
curpos: Integer
s := Listbox1.Item
rtf := RichEdit1.Lines.Text;
curpos := RichEdit1.SelStart;
insert(s,rtf,curpos)

ging nicht RichEdit sieht wie zuvor aus (kein text eingefügt) :cry:

´kann mir jemand helfen??

mfg

ösichemiker

[mkinzler]

Alles oder nur einen Eintrag?

[Die Muhkuh]

Du musst hinterher RichEdit.Text wieder das s zuweisen.

[ösichemiker]

Es soll den angeklickten item in das richedit kopieren und sonst gar nichts

[Blackheart]

Delphi-Quellcode:

RichEdit.Lines.Add(ListBox.Items.Strings[ListBox1.ItemIndex]);

[mkinzler]

Oder

Delphi-Quellcode:

RichEdit1.Lines.Text := Copy( RichEdit1.Lines.Text, 1, RichEdit1.SelStart ) + ListBox1.items[ ListBox1.ItemIndex] + Copy( RichEdit1.Lines.Text, RichEdit1.SelStart+1, Length( RichEdit1.Lines.Text));

[Blackheart]

Wenn Du an Cursorposition meinst dann sollte SelText helfen.

[mkinzler]

Nein .SelText ist der markierte Text. .SelStart ist die Position des ersten markierten Buchstabens bzw. die Cursorposition

[Blackheart]

Ist nichts markiert ist SelText di Cursorposition. :wink:

[ösichemiker]

Danke für die vielen Antworten. werd sie mal ausprobieren

mfg
ösichemiker