卷动文字(100分)

7

721hui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-18

• #1

各位大侠请问怎样实现文字的卷动出现？不是移动出现！

 

Z

zrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-29

• #2

啥意思??卷动??

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-29

• #3

在Form上放一TTime控件，设Time.interval:=1;
在OnTime事件中写入:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
RichEdit1.ScrollBy(0,-1);
//-1向上称，1向下移,当然你如果觉的不够快的话还可以取更大的值
end;
不过这种方法有缺点
只能滚动client区的内容，移动后在client
的下面空白部分不停的重画client区的最后一行。而且移动结束后又恢复了移动前
的状态，解决方法我还不知道
或者你把RichEdit1.ScrollBy(0,-1);换成
RichEdit1.Perform(EM_LINESCROLL, 0, 1);不过滚动效果不够平滑

 

T

thong_517

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #4

?

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #5

啥意思

 

J

jnleis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #6

卷动？？

 

D

dwq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #7

控件组lmd里就有卷动文字的这种组件，其实这种东西挺多的

 

D

dana

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #8

没见过，哪有？

 

5

54l5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #9

gz

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #10

什么卷动啊？说清楚要实现的功能，是滚动，还是鼠标卷动？

 

L

liujunzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #11

我认为如果用memo组件或者是richedit组件的scrollby(x,y)都可以实现
卷动，只不过有一个问题是当memo,richedit中的内容全部看完了之后，
那么就不会再出现郑动了，而只能另外操作了

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #12

procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.Move(0,Memo1.Lines.Count -1);
end;

 

硬

硬木花椒

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-03

• #13

hehe,我刚写得程序里，关于对话框就是滚动文字，我给你找找看。：）
其实当时也是参考别人的，你留下email，我发给你看看吧。

 

咪

咪咪富翁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-04

• #14

to
硬木花椒：
也给我发一份好吗，谢谢了，ywx.baby@163.net