Colorear una palabra en un RichEdit

[ecfisa]

Hola ZaneMS.

Empezado por ZaneMS

Necesito que cuando tu código haga su funcionamiento si yo siga escribiendo vuelva a la letra normal.

Una posible solución es:

Código Delphi [-]
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  RichEdit1.SelAttributes.Assign(RichEdit1.Font);
end;

Otra:

Código Delphi [-]
procedure TForm1.ButtonFont(Sender: TObject);
begin
  if FontDialog1.Execute then
    RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;

Saludos