1. 颜色   

Begin
    ctl.SelStart := -1;
    ctl.SelLength:= 0;
    ctl.SelAttributes.Color := clRed;
    ctl.Lines.Add('Test');
End

  

posted on 2013-12-30 11:39  Ryan Huang  阅读(219)  评论(0编辑  收藏  举报