我要自杀了(100分)

  • 主题发起人 刘麻子
  • 开始时间
没有人会吗?郁闷中[:(]
 
把原来的代码转换了一下,换成了可见的控件,测试结果呢,还行,只需完善了。<br>http://www.delphibbs.com/keylife/images/u163014/typing.rar<br>
 
测试还是不行啊!!
 
这个问题也要自杀,待会给你做个演示程序,明天。
 
再重复一遍,现在关键的问题在于:<br>当输入文字时自动对部分文字改变颜色,可当我输入汉字时,<br>&nbsp; &nbsp; 下面的语句无效,好象没执行一样!<br>procedure TForm1.RichEdit1Change(Sender: TObject);<br>begin<br>//奇怪的是如果在这加一句showmessage('气死我了');就可以了,是否未刷新的原因?可我用了<br>//richedit1.Repaint;和richedit1.Refresh;也不行!!为什么??<br><br>&nbsp;richedit1.SelStart:=0;<br>&nbsp;richedit1.SelLength:=2;<br>&nbsp;richedit1.SelAttributes.Color:=clblue;<br>end;<br>(我用的是onchange事件。)<br>
 
你需要将控件修改一下。
 
大哥 我载了 XP下不行 汉字敲错了颜色也不变<br><br>[:D]
 
如何解决????不变颜色的问题????
 
你的方法太复杂,建议采用AAfont控件,非常不错,可以实现你的要求,操作也很简单。
 
去和金山公司要源码(看你嘴皮子功夫了)
 
一路走好~~~~~
 
不用向金山要代码,我自己可以搞定,只是最近没时间,暂时放下,呵呵
 
如果我是版主,一定要你结帐了!!
 
等我搞定后,会公布代码
 
procedure TForm1.RichEdit1Change(Sender: TObject);<br>begin<br>&nbsp;richedit1.SelStart:=0;<br>&nbsp;richedit1.SelLength:=2;<br>&nbsp;richedit1.SelAttributes.Color:=clblue;<br>&nbsp;Application.ProcessMessages;//这样试一下<br>end;
 
大富翁WW: 您的方法,xuxiaohan已经讲过了
 
刘麻子.Free;
 
各位稍候,尽快搞定
 
算了,先结帐了,各位,多谢!!!! 等下,我先数数啊,1、2、3、4....<br>(我晕,这么多人怎么分啊? 抱歉 抱歉 分得少的请莫怪[:)])<br><br>随便说一下,我那程序不变颜色的问题没有解决,因为暂时没有时间搞。(还有其他东西要做)<br>等搞完了之后一定告诉大家!不过我又加了一点功能,感兴趣的可以到<br>http://liumazi.efile.com.cn/ 下载 lxdz.rar,如果能帮我改好,感激!另开贴给分!
 
顶部