ITPub博客

首页 > Linux操作系统 > Linux操作系统 > TRichEdit 指定内容改变颜色

TRichEdit 指定内容改变颜色

原创 Linux操作系统 作者:niuchao 时间:2019-01-09 12:42:05 0 删除 编辑
procedure TFrm_PrtTest.SetColor(SelectStr: string);
begin
  if Trim(SelectStr)<>'' then
  begin
    Memo1.SelStart := Length(Memo1.Text) - Length(SelectStr)-2;
    Memo1.SelLength:= Length(SelectStr);
    Memo1.SelAttributes.Color := clRed;
  end;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166523/viewspace-1133937/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2004-11-04

  • 博文量
    139
  • 访问量
    110205