Der Tipp mit dem Kopieren klingt schon mal interessant - danke!
Hier ist erstmal der Codeausschnitt, vielleicht hilft das weiter.
Ich habe hier eine DropDownlist und möchte einen darin selektierten Text in das RichEdit-Element einfügen. Dabei soll, falls das nochfolgende Wort im Text kein Sonderzeichen ist, dieses durch den Text Listeneintrag ersetzt werden.
Delphi-Quellcode:
procedure TMDIChildEditor.selectItemOfMemberList;
var
pos, i: Integer;
Text : String;
begin
with RiEdEditor do
begin
if SelLength = 0 then
begin
pos := SelStart;
i := 0;
Text := Lines.Text;
while IsCharAlphanumeric(Text[pos + i]) do i := i + 1;
SelLength := i;
end;
SelText := lbMemberList.Items[lbMemberList.ItemIndex];
end;
hideMemberList;
end;
In der Zeile "Text := Lines.Text;" kann ich im Debugmodus aus Lines.Text den Text auslesen - Text bleibt leer.
Gruß Max - und danke für die Hilfe!