我要自杀了(100分)

仙剑奇侠 · 2003-12-19

richedit1.SelStart:=4; richedit1.SelLength:=4; richedit1.SelAttributes.Color:=clred; Sleep(10);

cwt · 2003-12-19

i'm sorry,我不会~~~~~[

]

潇洒哥 · 2003-12-19

你可以用两个RICHEDIT控件啊。其中一个实现操作的，不可见的。一个是可见的，用来显示的。

我是笨猪 · 2003-12-19

我救不了你，刘麻子。我说过的，我是做数据库方面的 潇洒哥,说的你可试一试

tranke · 2003-12-19

看了半天觉得很是不明白？

仙剑奇侠 · 2003-12-19

我再看看吧

仙剑奇侠 · 2003-12-19

procedure TForm1.RichEdit1Change(Sender: TObject); begin   Timer1.Enabled :=True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin   Timer1.Enabled :=False;   RichEdit1.SelStart :=0;   RichEdit1.SelLength :=2;   RichEdit1.SelAttributes.Color :=clRed; end;

Wizard00 · 2003-12-19

帮你up一下吧，我没有什么好办法。

潇洒哥 · 2003-12-19

刘麻子，听我的，没错的。不过里面编程时有技巧的。

xiaofeng007 · 2003-12-19

1、在初始化的时候加一个 richedit1.Text:='s' ; richedit1.Text:='' ; 我试了一下好像可以，但不晓得是什么原因。

xiaofeng007 · 2003-12-19

但是这样的话好象并不能改边选中字的颜色。帮你顶一下

刘麻子 · 2003-12-20

谢谢大家的帮助，上面的朋友提到的几个方法我都试了！现在讲给大家听！ 改变焦点好象不行耶！无论两个控件的setfocus; 怎么搭配，怎么变换位置，也不行的！哪位朋友作成功的 可以教教我吗？您具体是怎么做的？？？？？ (还有，不可见的组件能获得焦点吗？这是不可能的^_^) procedure TForm1.RichEdit1Change(Sender: TObject); begin //模仿showmessage();时的情况   richedit2.SetFocus;     //失去焦点   richedit1.SelStart:=0;   richedit1.SelLength:=2;   richedit1.SelAttributes.Color:=clblue;   richedit1.setFocus;     //获得焦点 end; 另外，一位朋友提醒了我。用按钮是可以的，(变色程序放在按钮单击事件里) 我就想，当需要变颜色时，调用按钮的click。 procedure TForm1.Button1Click(Sender: TObject); begin   richedit1.SelStart:=0;   richedit1.SelLength:=2;   richedit1.SelAttributes.Color:=clblue; end; procedure TForm1.RichEdit1Change(Sender: TObject); begin   keybd_event(9,mapvirtualkey(9,0),0,0); //模拟按下TAB键   keybd_event(9,mapvirtualkey(9,0),keyeventf_keyup,0);   button1.Click;//此时焦点在按纽上,其实这里的改变焦点没什么意义，   //前面已经试过了，没有用的！只是抱着试试看的想法加上去的   keybd_event(9,mapvirtualkey(9,0),0,0);   keybd_event(9,mapvirtualkey(9,0),keyeventf_keyup,0); end; 还是不行。只好用Windows API来模拟鼠标点击按钮,这下可以了^_^ procedure TForm1.Button1Click(Sender: TObject); begin   dof:=(dof+1)mod 10;//防止因改变颜色而触发onchange事件   richedit1.SelStart:=dof;   richedit1.SelLength:=1;   richedit1.SelAttributes.Color:=clblue; end; procedure TForm1.RichEdit1Change(Sender: TObject); var ylpt,anpt:TPOINT ;//原来的位置，按纽的位置 begin   if (dof mod 2)<>0 then//防止因改变颜色而触发onchange事件   begin                     //否则会一直互相调用     dof:=(dof+1)mod 10; //为下次用户输入时触发onchange事件准备     exit;   end; //模拟用鼠标单击按纽   getcursorpos(ylpt);//鼠标当前的位置   anpt:=button1.ClientToScreen(point(4,4));   setCursorpos(anpt.X,anpt.Y);     //移到按纽的位置   mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//按下   mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);  //抬起   setcursorpos(ylpt.x,ylpt.y); //恢复原来的位置 end; procedure TForm1.FormCreate(Sender: TObject); begin   dof:=0;//全局变量 end; 无论输入的是汉字还是英文而导致的onchange事件，都会变颜色了！！ 但是，问题还没有得到实际解决，因为我做的打字程序不可能上面放一个按钮 的啊，如果将按纽设为visible：=false,单击又没用了呀？怎么办？ 还有一位朋友讲了，当用‘万能五笔’输入汉字时就可以，我试了一下，的确是这样， 为什么？？但是实际使用中总不能限制用户只能用‘万能五笔输入法’吧？我想,这样 不好，那拼音就不能用了！（我就是用拼音的

）我不想这样！ 另外，有人讲不要用onchange事件，那用什么呢？？我试过了，其他的都不行。比如： onkeydown：  切换输入法状态时会触发事件处理过程，当前是汉字输入法时，按键盘              上按键时也会触发事件！ onkeypress：输入中文时无效，因为他接受的只是ASCII码。 onkeyup：    与onkeydown情况相似，且根本无法输入汉字！ 不知道还可以用什么事件？或者怎么正确使用上面的事件以达到我的需要？ （虽然情况好转，让我放弃了死亡的念头。但还是有困难的，我随时可能想不开的哦） （各位朋友，救人一命胜造..，一定要帮我呀！我的qq:71892967,欢迎加我^_^）

w128 · 2003-12-20

自己在程序里，写一个：*。BAT代码段就OK了。

weichao9999 · 2003-12-20

吧按钮放在一个隐蔽的地方

刘麻子 · 2003-12-20

在DOS批处理中改变颜色？ 你异想天开吧？？ 或着，真的可以？您能作到的话 请告诉我！

刘麻子 · 2003-12-20

发现一个新的问题。 当我们在一个事件处理过程中，导致另一个事件的发生， 这时必须等到前面一个事件处理完，才可处理第二个事件 ，对吧？那么就算允许在窗体上存在可见的按钮，也不行 因为：（请看下面的例子） 编辑框onchange事件处理过程 begin   while 这次输入的汉字串没处理完 do   begin    当前汗字错就模拟鼠标单击按钮；    指针转到下一个字符；   end end; 按钮的onClick事件处理过程 begin   将指针指向的汉字改颜色； end; 现在不存在输入汉字时，不会改变颜色的问题， 但是汉字串（一次输入的）前面的错误不会表现 出来，虽然前面有点按钮动作，但是因为程序当 时在onchange中，出不来！ 难道要用多线程??那谁知道可以将事件作成子线程的?? 也就是说当事件发生,立即建立子线程,处理之,而不管 主程序执行到哪里了.好象不行吧？

我是笨猪 · 2003-12-20

先获得原字符串的长度 再获得新字符串的长度 用新的减旧的就是用户新输入的 然后一个一个的和原文比较

我是笨猪 · 2003-12-20

GB 2312-80 规定，“对任意一个图形字符都采用两个字节（Byte）表示。每个字节均采用 GB 1988－80 及 GB 2311－80 中的七位编码表示。两个字节中前面的字节为第一字节，后面的字节为第二字节。” 习惯上称第一字节为“高字节”，第二字节为“低字节”。 　　GB 2312-80 将代码表分为 94 个区（Section），对应第一字节；每个区 94 个位（Position）， 对应第二字节。两个字节的值，分别为区号值和位号值各加 32（20H）。 　　GB 2312-80 规定，01～09 区（原规定为 1～9 区，为表示区位码方便起见，今改称 01～09 区） 为符号、数字区，16～87 区为汉字区。而 10～15 区、88～94 区是有待于“进一步标准化”的“空白 位置”区域。但第 10 区推荐与第 3 区的 94 个图形字符（即 GB 1988－80 中的 94 个图形字符）相同， 字形宽度为其宽度的一半。

我是笨猪 · 2003-12-20

如果内码前后字节都大于0x80就是国标码如果内码前后字节存在一个大于0x80 一个大于0x40 就是big5码。

我是笨猪 · 2003-12-20

汉字到区位码: procedure GetQw(hz: String; var qm, wm: Integer); begin   if (Ord(hz[1])<161)or(Ord(hz[2]<161) then Exit;   qm := hz[1]-160;   wm := hz[2]-160; end; 汉字的两字节都大于161，首位当然都是1了

我要自杀了(100分)

仙剑奇侠

Unregistered / Unconfirmed

cwt

Unregistered / Unconfirmed

潇洒哥

Unregistered / Unconfirmed

我是笨猪

Unregistered / Unconfirmed

tranke

Unregistered / Unconfirmed

仙剑奇侠

Unregistered / Unconfirmed

仙剑奇侠

Unregistered / Unconfirmed

Wizard00

Unregistered / Unconfirmed

潇洒哥

Unregistered / Unconfirmed

xiaofeng007

Unregistered / Unconfirmed

xiaofeng007

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

w128

Unregistered / Unconfirmed

weichao9999

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

我是笨猪

Unregistered / Unconfirmed

我是笨猪

Unregistered / Unconfirmed

我是笨猪

Unregistered / Unconfirmed

我是笨猪

Unregistered / Unconfirmed

Similar threads