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

[ymhf19373200]

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

[vagerent]

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

[Delphi_Li]

最笨的方法：
使用一个定时器，定时刷新你的form的Caption！！！

闪烁：一次显示，一次为空
左右移动：可以在Caption前面不断增加空格/减少空格来达到移动的效果！！！

[gdwyh]

加一timer控件.

unit Unit1;

interface

uses
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.

[pankun]

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

[pankun]

打错了:(
是FlashWindow

[vcshcn]

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

[uptrend]

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

[redlegend_126_com]

对timer定时刷新你的caption

[Silverspur]

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