急简单的问题呦~~~~~~~~~~~~~~~~~~~~~~~``(50分)

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #1

怎样实现 RichEdit里的文本定时滚动。就像鼠标滚轮的效果一样？

 

T

tan_jian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #2

发送 EM_LINESCROLL 消息试试看

 

网

网心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #3

是否可以设置一个条件并调用系统时间定时函数

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #4

to ;大虾：
调用系统时间定时函数 是肯定的。问题是要让他在滚动到最后一行时停止！！！！

 

H

hnlygtjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #5

在Form上放一TTime控件，设Time.interval:=1;
在OnTime事件中写入:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
RichEdit1.ScrollBy(0,-1);
//-1向上称，1向下移,当然你如果觉的不够快的话还可以取更大的值
end;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #6

也可在OnTime事件中写入:
SendMessage(richedit1.Handle,WM_VSCROLL,1,0)

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #7

顺便问一下 哪里有游戏修改器的源代码？

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #8

topLine:integer;
当RichEdit的lines.count-topLine<RichEdit的MaxLineVisiable时，timer就要disable了。

我有一个简单的、继承RichEdit的控件，增加了TopLine,lnsVisible,MaxLnsVisible等
属性。如要，我可以发给你。

另外，你还可以不用timer，用下面的delay函数。
　　procedure Delay(x: Extended);
　　var
　　CurrentTime:real;
　　begin
　　CurrentTime:=GetTickCount;//WINDOWS 启动时间
　　While
　　(GetTickCount)<(CurrentTime＋x) do
; ; Application.ProcessMessages;
　　end;

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #9

急啊~~~~~~~~~~~
字符会有残影阿~刷新也没有用！！！！

 

A

Alix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-03

• #10

请问你刷新的是那部分？

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #11

Alix
RichEdit1.刷新 ; ; ; ; 你可以试看看，就知道了。

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-05

• #12

没有解决问题啊~~~~~~~~~~~~~~~~~~~

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-05

• #13

hnlygtjj, 写的代码可行！ ;你try一下阿！

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-05

• #14

多人接受答案了。