Habe ein Problem beim Einfärben der Schrift im RichEdit.
Mein Programm hängt sich immer auf !
Code:
procedure TForm1.ColorBox1Select(Sender: TObject);
var
x : integer;
begin
while ColorBox1.Selected <> RichEdit1.SelAttributes.Color do begin
ColorBox1.ItemIndex := x;
Inc(x);
end;
end;
Was ist mein Fehler
