怎么样设置动态字体？

Question

怎么样把TEdit,TLabel等的CAPTION或者Text设置成动态效果的呢？

Answer 1

Edit1.Font.Color := ...
Edit.Font.Name := ...
Edit.Font.Size := ...你说的动态是动态改变么

Answer 2

用一个Timer控件咯,不过不太提倡
OK?

Answer 3

好久了，可没解决啊哈哈~~~~~~~指得是一：字体的大小、颜色等FONT属性的改变
      二：文字内容，即TEXT  CAPTION的改变！谢谢

Answer 4

动态有好多种，你是要闪烁还是移动的呢？(1)如果是闪烁，就很简单：
比如：
  if label1.caption <> ''
    label1.text := ''
  else
    label1.caption := '你的内容';
还有一种方法就是放在定时器里。(2)如果是滚动，则用判断边界的方法放在定时器里：
  
  label1.transparent := true;
procedure Tform1.Timer1Timer(Sender: TObject);
begin  if label1.caption <> '' then
  begin
   label1.left := label1.left + 10; (这里的10你可以任意设置）
   if label1.left >= form1.width then
   label1.left := 初始值;
  end;end;

Answer 5

label1.text := '' 应为 label1.caption := ''