The bomb has been planted.呵呵。 玩笑归玩笑,我给你举个动态字幕的例子,如下: 1)首先创建一个新的工程,在窗体form1中添加一个panel 组件,将caption 属 性清空. 2)选中Panel 组件后在其中添加Label组件,将caption属性清空,Autosize属性 设置为True 3) 在窗体中添加一个定时器(Timer)组件,属性Enable设置为True ,属性 Interval设置为100 。 4)添加窗体Form1的OnCreate 事件的处理过程: procedure TForm1.FormCreate(Sender: TObject); begin // 设置L a b e l 1 组件的显示内容 Label1.Caption: = '设计:uuu' + #13 +#13; end; 5)添加Timer组件OnTimer事件的处理过程: procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Top : = Label1.Top-1; // 将Label1 组件向上移动 // 如果L a b e l 1 显示完毕,则重新开始 if (Label1.Top<-Label1.Width-30) then Label1.Top : = Panel1.Height; e n d ;
玩笑归玩笑,我给你举个动态字幕的例子,如下:
1)首先创建一个新的工程,在窗体form1中添加一个panel 组件,将caption 属
性清空.
2)选中Panel 组件后在其中添加Label组件,将caption属性清空,Autosize属性
设置为True
3) 在窗体中添加一个定时器(Timer)组件,属性Enable设置为True ,属性
Interval设置为100 。
4)添加窗体Form1的OnCreate 事件的处理过程:
procedure TForm1.FormCreate(Sender: TObject);
begin
// 设置L a b e l 1 组件的显示内容
Label1.Caption: = '设计:uuu' + #13 +#13;
end;
5)添加Timer组件OnTimer事件的处理过程:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Top : = Label1.Top-1; // 将Label1 组件向上移动
// 如果L a b e l 1 显示完毕,则重新开始
if (Label1.Top<-Label1.Width-30) then
Label1.Top : = Panel1.Height;
e n d ;