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)

[DeddyH]

Zumal das Ziel

Zitat:

ich will über die ColorBox die Farbe meines Textes aus dem RichEdit ändern

auch bei fehlerbereinigter Schleife nicht erreicht wird, da falsch herum (Änderung der Colorbox statt des RichEdits).

[Sir Rufo]

Zitat von DeddyH:

Zumal das Ziel

Zitat:

ich will über die ColorBox die Farbe meines Textes aus dem RichEdit ändern

auch bei fehlerbereinigter Schleife nicht erreicht wird, da falsch herum (Änderung der Colorbox statt des RichEdits).

Du hast da völlig recht ...

es ist aber die Antwort auf die Frage:

Zitat von Davidlocke13:

Mein Programm hängt sich immer auf !
...
Was ist mein Fehler

[DeddyH]

Das hatte ich in #2 ja schon angedeutet . Aber ist jetzt auch egal, das Problem scheint ja gelöst zu sein.