Problem mit RichEdit und ColorBox

[Sir Rufo]

Zitat von Davidlocke13:

Habe ein Problem beim Einfärben der Schrift im RichEdit.
Mein Programm hängt sich immer auf !

Delphi-Quellcode:

procedure TForm1.ColorBox1Select(Sender: TObject);
var
x : integer;
begin
while ColorBox1.Selected <> RichEdit1.SelAttributes.Color do begin

  ColorBox1.ItemIndex := x; // <- welcher Wert???

  Inc(x);

 end;
end;

Was ist mein Fehler

Wenn dein Programm zum ersten Mal an die Stelle kommt ColorBox1.ItemIndex := x; , welchen Wert - denkst du - hat dann x?

Dieser Gedanke ist falsch und die (vermeintliche) Endlosschleife ist nicht endlos, sondern du bis nur zu ungeduldig.
(Warte einfach ein paar Minuten, je nach CPU-Geschwindigkeit und Mondphase)