如何让标题栏里的内容动起来？？

Question

如何让标题栏里的内容动起来？？
左右来回移动，闪烁。

Answer 1

可以在她caption前面加空格阿，做个循环。闪烁不会阿，帮你顶。

Answer 2

最笨的方法：
使用一个定时器，定时刷新你的form的Caption！！！闪烁：一次显示，一次为空
左右移动：可以在Caption前面不断增加空格/减少空格来达到移动的效果！！！

Answer 3

加一timer控件.unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StrUtils;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1; i:integer;str:string;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  i:=(i+1) mod 100;
  if i mod 5=0 then form1.Caption:='';
  form1.Caption:=DupeString(' ',i)+str;
end;procedure TForm1.FormShow(Sender: TObject);
begin
  str:=form1.Caption;
end;end.

Answer 4

要闪动窗体标题栏用FlaseWindow就可以了

Answer 5

for { title = substring(i, i+5) }

Answer 6

一个timer，定时刷caption不就行了吗

Answer 7

支持pankun(剑神一笑 ^_^) ，应该用API函数flashwindow。