[结帖]RichEdit中如何设置选中某行中的某几个字？？**

jianth2005 · 发表于 2009-4-30 16:00:44

如图：

zfang · 发表于 2009-4-30 16:09:54

建议楼主看看delphi相关的资料。
RichEdit1.SelAttributes.Color := $AAAF5F;

jianth2005 · 发表于 2009-4-30 16:12:38

看了
没找到，能否给点思路

zfang · 发表于 2009-4-30 16:16:02

怎么可能呢？你没好好找吧，这种资料网上很多的。
看2楼。

jianth2005 · 发表于 2009-4-30 16:20:14

找了两个小时了，我也不知道是不是没好好找

jianth2005 · 发表于 2009-4-30 16:22:53

我是想用代码来控制RichEdit中我想要选中的某几个字，然后改变它的颜色！
目前我只能做到手动选中某个字后改变它的颜色。

jianth2005 · 发表于 2009-4-30 17:00:50

如图，我这样写，它永远都定义在第一行，
SelStart的值到底该如何设置？？？

zfang · 发表于 2009-4-30 17:31:30

参考吧
我这里设置row:=2，也就是说第三行

procedure TJLST1.Button1Click(Sender: TObject);
var
   row, i, cnt: Integer;
begin
  row := 2;
  cnt := 0;
  for i:= 0 to row - 1 do
cnt := cnt + Length(RichEdit1.Lines)+2;
  RichEdit1.SelStart := cnt;
  RichEdit1.SelLength := Length(RichEdit1.Lines[row]);
  RichEdit1.SelAttributes.Color := $AAAF5F;    // 设颜色

jianth2005 · 发表于 2009-4-30 17:41:55

结贴

做得了才回

zfang · 发表于 2009-5-1 06:21:10

楼主什么意思？

		自动登录	找回密码
密码			立即注册