大虾们,请问如何实现statusbar中的字能够滚动? 谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 应该不难!用一循环加一Trimer就可以了! 放Ttimer组件,在里面写上一循环事件 2重循环,最里面的一层往statusbar里面的panel逐个拷贝信息。外面的循环循环显示。 //自己稍微改改,I全局变量,初始值为0//Str全局变量,你要显示的字符串。例如Str:='Hello World!';procedure TMainForm.Timer1Timer(Sender: TObject);begin Label1.Caption:=Label1.Caption+Str(I); Inc(I); if I=Length(Str)+1 then begin Label1.Caption:=''; I:=1; end;end; 你可以让你的StatusBar里的文字在最前或者最后加空格的方式它显示出来的效果就是动了 高手进来看看这个软件是用什么实现的 问一关于网页表格写入EXCEL的问题 tttk(网络芝麻)前来领分 请教如何控制某一线程以一个固定周期执行 菜鸟关于ADO的问题:TADOCommand.CommandText和TADOQuery.SQL.Text有什么区别? adoquery 好像没有了parambyname,能用什么替代吗? 怎么样才能随意在MSN上添加好友? 怎么获取常量的名字?第一个正确回答者给全部分! query和table 如何将硬盘上的某个目录虚拟成光驱 实际应用问,真诚向各位高手请教! 请问各位一般怎么处理数据库里查询得到的数据,再将处理后的结果呈现给用户?
外面的循环循环显示。
//Str全局变量,你要显示的字符串。例如Str:='Hello World!';
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Label1.Caption+Str(I);
Inc(I);
if I=Length(Str)+1 then
begin
Label1.Caption:='';
I:=1;
end;
end;