TRichEdit, bunter text

[shareholder]

ich habe eine TRichEdit Komponente

wenn der benutzer ein Wort markiert soll er das über einen button blau färben könnnen

Dies hier ist jetzt also ein
kleiner und sinnloser Text
in einem Memo wo einige Wörter
sogar mal blau sein können.

wie geht das ? danke!!

[Keldorn]

Hallo

gugg dir mal die sel*-eigenschaften des Richedits an. richedit farbe sollte auch was zu finden sein.

Mfg Frank

[Nicodius]

schau unter Selattributes

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
RichEdit1.Lines.Add(Edit1.Text);  //Word in RichEdit einfügen 
RichEdit1.SelStart := Pos (Edit1.Text,RichEdit1.Text)-1; //Position des Wortes bestimmen 
RichEdit1.SelLength := Length (Edit1.Text); //Länge festelegen 
RichEdit1.SelAttributes.Color := clRed; //Das Word rot färben 
RichEdit1.SelLength := 0;  //Markierung aufheben. 
end;