Selstart SelLength

[F.W.]

Hallo Leute!

Ich habe auch das Problem auch.
Ich schreibe momentan ein Chatprogramm und da wird durch einen Druck auf >Enter< eine Zeile zu RichEdit hinzugefügt und dann soll sie eingefärbt werden.

Mein Quelltext sieht so aus:

Delphi-Quellcode:

var
MyLines: Integer;
begin
     with RichEdit1 do
     MyLines := RichEdit1.Lines.Count; //Zeilen zählen
     RichEdit1.Lines.Add(Edit1.Text);  //Edit1.Text hinzufügen
     RichEdit1.SelStart := Mylines;    //Start der Markierung festlegen
     RichEdit1.SelLength := Length(Edit1.Text); //Länge festlegen
     RichEdit1.SelAttributes.Color := Label1.Font.Color; //Farbe ändern
     Edit1.Clear;
end;

Durch einen ColorDialog wird die Farbe von Label1 auf die gewünschte Farbe eingestellt.

Ich habe das mal durchgechecked(im Quelltexteditor den Punkt vor die Linie gesetzt), nachdem ich das Projekt nach der letzten Zeile Quelltext weiter laufen lassen habe, wird die Zeile hinzugefügt, kann es damit zusammen hängen, dass die Zeile erst hinzugefügt wird, wenn die eigentliche Arbeit schon zu ende ist?