比如说edit1.text:=1234; 那么运行的时候，看见edit1中显示1234，我就是想让这个1234从右向左滚动，怎么做，请高手指点！谢谢
delphi中怎么让edit的text值滚动
答案:2 悬赏:50 手机版
解决时间 2021-05-15 16:30
- 提问者网友：我是女神我骄傲
- 2021-05-14 21:49
最佳答案
- 五星知识达人网友：思契十里
- 2021-05-14 23:12
procedure TForm1.Timer1Timer(Sender: TObject);
var
a:string;
begin
a:=copy(edit1.Text,1,1);
edit1.Text:=copy(edit1.Text,2,3)+a;
end;
var
a:string;
begin
a:=copy(edit1.Text,1,1);
edit1.Text:=copy(edit1.Text,2,3)+a;
end;
全部回答
- 1楼网友：第幾種人
- 2021-05-15 00:31
你用计时器timer 不就搞定咯
你先设定timer1的时间
然后在ontimer里面写下
edit1.text:=' ' + edit1.text;
后面你还可以加控制语句,让他来回滚动,
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯