Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
21. Jun 2005
Etwa so (das Pos kannst du dir sparen):
for i := 1 to High(Smilie) do
while ChatBox.FindText(Smilie, 0, -1, ) >= 0 do begin
ChatBox.SelLength := Length(Smilie);
ChatBox.SelText := '';
AddImageToRichEdit(GetImageIndex(Smilie));
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
21. Jun 2005
Wenn du sowieso ein JvRichEdit benutzt, warum nimmst du nicht die Funktion FindText? Wenn du stSetSelection angibst, dann markiert die dir sogar schon die Fundstelle.