B
bird_fox
Unregistered / Unconfirmed
GUEST, unregistred user!
我要在onchange事件中(有中文输入时),控制richedit内的中文文本颜色,在98中实现的很好,但同样的代码
2000中文本颜色却不变,头痛头痛,请教高手.代码类似下面.
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
Richedit1.SelStart:=i;(用i控制选中位置)
Richedit1.SelLength:=2;
Richedit1.SelAttributes.Color:=clRed;
end;
2000中文本颜色却不变,头痛头痛,请教高手.代码类似下面.
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
Richedit1.SelStart:=i;(用i控制选中位置)
Richedit1.SelLength:=2;
Richedit1.SelAttributes.Color:=clRed;
end;