如何在TRichEdit中设置指定单词的颜色,大小,例如关键字颜色为黑体\引号之间这蓝色.
别告诉我用
RichEdit1.SelStart := iPosition ;
RichEdit1.SelLength := iLength ;
RichEdit1.SelAttributes := SelectColor;
当然这样是可以,但是很慢,算法很差
别告诉我用
RichEdit1.SelStart := iPosition ;
RichEdit1.SelLength := iLength ;
RichEdit1.SelAttributes := SelectColor;
当然这样是可以,但是很慢,算法很差
解决方案 »
- 数据库按时间查询出了点问题,sqlite ,很郁闷
- 请教各位一个问题,Delphi在打开项目时,有时会出现这样错误。Error creating form:"is not a valid floating point value.是什么原因?
- 求助:检索PDF文件并打印的问题?
- TStringGrid控件的一点用法问题?
- 关于‘DateTimePicker’控件的使用
- 求树型控件用法,请高手赐教。级别太低,只能放100分,分不够再加。谢谢
- 请问如何控制Excel某一列的宽度
- 一个问题,大家多多支持
- 指针类型哪儿出问题啊
- 在delphi中是不是不能在一个form中关掉另一个form?
- help
- 高分求助如何覆盖父类的属性?
2.即时显示势必花费时间,将文本置于缓冲区处理,需要时再显示
单词的颜色,大小等等
如果考虑文本太长,可以只绘可见部分的文字。不过你要多用点时间了:—)
uses RichEdit
.....
procedure TForm1.FormCreate(Sender: TObject);
begin
SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, ENM_LINK);
SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, Integer(True), 0);
RichEdit1.Text :='http://www.yahoo.com';
end;