怎样让光标在文本框中随时间移动,每次移动一个汉字(50分)

F

flybirdwxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #1

怎样让光标在文本框中随时间移动,每次移动一个汉字

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #2

定时发送一个键盘消息行吗？
好像不行。又好像勉强可以。
仅供参考。

 

F

Fyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #3

在Timer控件中用SetCaretPos函数移动光标

 

T

truely

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #4

利用timer控件定时向文本窗体发送“->”消息！给分吧保证可以！！

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #5

Richedit.Selstart:=Richedit.Selstart+1

 

W

wb_wen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #6

同意crystal，
用selstart和sellength控制你要的东东，同时用timer控件控制移动应该可以了

 

雁

雁孤行

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-10

• #7

【请及时提前或结束您的问题，谢谢合作！】

 

四

四毛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #8

crystal的方法可以
中文要
Richedit.Selstart:=Richedit.Selstart+2

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #9

呵呵，用这招，连中文都不用判断。 ^_^
procedure TForm1.Timer1Timer(Sender: TObject);
var
OldPos:Integer;
begin
OldPos:=Memo1.SelStart;
Memo1.SelStart:=Memo1.SelStart+1;
if Memo1.SelStart=OldPos then
//如果移动一个单位不成功，表示遇到了汉字，需要移动两个单位
Memo1.SelStart:=Memo1.SelStart+2;
end;

 

B

bowl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-29

• #10

memo1.selstart:=
memo1.setfocus

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-07

• #11

多人接受答案了。