RichEdit "piept"

[ghost007]

Hallo,
ich adde mit folgendem code eine zeile in eine richedit:

Delphi-Quellcode:

procedure TForm1.AddMessage(msg:string;color:TColor);
begin
 RichEdit1.Lines.Add(msg);
 RichEdit1.SelStart:=length(RichEdit1.Text)-length(msg)-2;
 RichEdit1.SelLength:=length(msg);
 RichEdit1.SelAttributes.Color:=color;
 RichEdit1.ClearSelection;
end;

So, nun hab ich nur das problem, das jedesmal, wenn eine zeile geaddet wird so ein windowssound abgespielt wird.
Wie kann ich das unterbinden?

MfG - Ghost007

[Die Muhkuh]

Auch wenn ich Dir jetzt nicht Deine erhoffte Antwort bringe, aber so, wie Du eine Nachricht hinzufügst, ist es alles andere als performant. Gescheiter wäre es, wenn Du die Nachricht erst aufsplittest, dann die SelAttribute setzt und dann die Nachricht hinzufügst. Jedesmal auf RichEdit.Text zu zugreifen, kann bei viel Inhalt unperformant werden.

[ghost007]

Zitat:

Zitat von Die Muhkuh

Auch wenn ich Dir jetzt nicht Deine erhoffte Antwort bringe, aber so, wie Du eine Nachricht hinzufügst, ist es alles andere als performant. Gescheiter wäre es, wenn Du die Nachricht erst aufsplittest, dann die SelAttribute setzt und dann die Nachricht hinzufügst. Jedesmal auf RichEdit.Text zu zugreifen, kann bei viel Inhalt unperformant werden.

hi,
wie die nachricht "aufsplitten" ? :shock: versteh nicht was du damit meinst.

MfG - Ghost007

P.S. Hat keiner ne ahnung warum das ding piept ?

[EDIT]
Anscheinend lag es an dem ClearSelection ... habs nun ma auskommentiert und es geht wunderbar.
[/EDIT]

[Christian Seehase]

Moin Christian,

ideal wäre es, wenn Du Dir einfach immer die nächste Startposition merken würdest (z.B. in einem privaten Feld des Formulares)
Das erspart Dir das ständige Length(Text).
Statt ClearSelection ginge auch SelLength auf 0 zu setzen.

[ghost007]

ok,
danke hat sich dann erledigt :)

MfG - Ghost007