我想在状态栏显示出会滚动的字体,应该怎么做?
能给具体点的说明吗,最好有程序!
能给具体点的说明吗,最好有程序!
解决方案 »
- 自动发邮件提示,并将内容显示在邮件中
- 求助:请问谁知道在哪里可以买到《Delphi Directx图形与游戏程序设计》?
- 公司想把原来的C/S结构的超市POS系统转成三层结构,请问意义有多大?
- 多层的实现,怎样使用中间件将各层连接起来?
- 为什么你看不到新贴了.没有15号的贴子全是14号以后的贴子?
- 可以重复利用已有adoquery查询结果集吗,避免重复查询吗?
- 各位插入记录是直接用SQL命令,还是用控件里的命令如insertrecord?
- 在按装程序里制做了 ODBC联接,能否让用户在按装时选择服务器IP?
- AdvStringGrid的安装方法
- C里的strcpy函数在pascal中用什么替代?
- 如何把chm格式的帮助文件连接到数据库?
- 怎么将从数据库中获得的varbinary数据类型 转换成 delphi的 string型
procedure TForm1.Timer1Timer(Sender: TObject);
var
StrLab:String;
StrTempA:String;
StrTempB:String;
begin
StrLab:=StatusBar1.Panels[0].Text;
StrTempA:=StrLab[1];
StrTempB:=Copy(StrLab,2,Length(StrLab)-1);
StrLab:=StrTempB + StrTempA;
StatusBar1.Panels[0].Text:=StrLab;
end;
//字符的滚动是消失一个字符就在字符串的后尾后面出现一个新的字符..如果楼主觉得不大好的话可以自已改一改代码..很容易搞定的.:)
var
StrLab:String;
StrTempA:String;
StrTempB:String;
begin
StrLab:=StatusBar1.Panels[0].Text;
if (ord(StrLab[1])>=127) then
begin
StrTempA:=StrLab[1]+StrLab[2];
StrTempB:=Copy(StrLab,3,Length(StrLab)-1);
end
else
begin
StrTempA:=StrLab[1];
StrTempB:=Copy(StrLab,2,Length(StrLab)-1);
end;
StrLab:=StrTempB + StrTempA;
StatusBar1.Panels[0].Text:=StrLab;
end;
谢谢你的提示`!我试过了..OK`