最好有例程:[email protected]
非常感谢!

解决方案 »

  1.   

    Procedure TForm1.Button1Click(Sender:TObject);
    begin
    richedit1.selstart:=0;
    richedit1.sellength:=9;
    richeedit1.selelectedAttr.font.color:=clred;
    richedit1.sellength:=0;
    end;
      

  2.   

    如果我要richedit内的所有的'public'显示为蓝色怎么做?
      

  3.   

    你就可以先查找richedit文本中的各个public的位置,然后用上面的方法来实现
      

  4.   

    我也正在做这个题目 请问如果不用鼠标选择属性 可以实现吗?  用其他的方式?因为我用的控件不是richedit是TTabSheet控件有其他的方法实现吗?如果有例程  也请顺便给我一份[email protected]
      

  5.   

    纠正一下:
    不是: .selelectedAttr.font.color
    而是:.SelAttributes.Color