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?
