主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.04.01;
下载:[xml.tar.bz2];

向下

标题表格 找到类似的分支


Romik   (2002-03-21 20:10) [0]

你好大师!
请告诉我如何使标题形式动画,
即创建效果运动文本。

提前谢谢你。



Юрий Зотов   (2002-03-21 20:39) [1]

例如,源文本存储在字符串中,当前开始是整数变量,并且基于该数据在计时器上形成Caption。



Romik   (2002-03-21 20:41) [2]

> Yuri Zotov©(21.03.02 20:39)

是否有可能更详细 - 我是一名新手程序员。



Юрий Зотов   (2002-03-21 21:27) [3]

这是一个可能的选项,如果某些东西不适合 - 修改它。

unit Unit1;

接口

使用
Windows,消息,SysUtils,类,图形,控件,
表格,对话,ExtCtrls,StdCtrls;

类型
TForm1 = class(TForm)
Timer1:TTimer;
Edit1:TEdit;
Button1:TButton;
程序Timer1Timer(发件人:TObject);
过程Button1Click(Sender:TObject);
私立
FPos:整数;
FCaption:字符串;
公开
procedure SetNewCaption(const Value:string);
结束;

VAR
Form1:TForm1;

履行

{$ R * .DFM}

procedure TForm1.SetNewCaption(const Value:string);
开始
如果FCaption <>那么值
开始
Timer1.Enabled:= False;
FCaption:=值;
FPos:= 0;
图说:= FCaption;
Timer1.Enabled:= True
结束
结束;

程序TForm1.Timer1Timer(发件人:TObject);
VAR
L:整数;
S:字符串;
开始
Timer1.Enabled:= False;
尝试
L:=长度(FCaption);
如果FPos = L则FPos:= 0;
Inc(FPos);
S:=复制(FCaption,FPos,L - FPos + 1);
如果FPos> 1则S:= S +“”+复制(FCaption,1,FPos - 1);
标题:= S.
最后
Timer1.Enabled:= True
结束
结束;

过程TForm1.Button1Click(Sender:TObject);
开始
SetNewCaption(Edit1.Text)
结束;

结束。



Romik   (2002-03-21 22:44) [4]

> Yuri Zotov©(21.03.02 21:27)
非常感谢!!! 像我预期的那样。



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.04.01;
下载:[xml.tar.bz2];

楼上









内存:0.56 MB
时间:0.02 c
7-324
游牧
2001-12-29 15:14
2002.04.01
NT如何允许程序编辑当前用户的注册表?


1-165
CT
2002-03-18 12:04
2002.04.01
Excel排序


1-218
面包车
2002-03-20 13:30
2002.04.01
如何以编程方式创建临时表单?


3-38
浙江沪杭甬
2002-03-06 17:23
2002.04.01
带有TDateTime参数的MSSQL和ADOQuery


14-314
phantom2040
2002-02-20 14:11
2002.04.01
XP远程访问服务器





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский