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

ymhf19373200 2003-10-16 04:12:29
如何让标题栏里的内容动起来??
左右来回移动,闪烁。
...全文
46 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
Silverspur 2003-10-19
  • 打赏
  • 举报
回复
支持pankun(剑神一笑 ^_^) ,应该用API函数flashwindow。
redlegend_126_com 2003-10-19
  • 打赏
  • 举报
回复
对timer定时刷新你的caption
uptrend 2003-10-19
  • 打赏
  • 举报
回复
一个timer,定时刷caption不就行了吗
vcshcn 2003-10-16
  • 打赏
  • 举报
回复
for { title = substring(i, i+5) }
pankun 2003-10-16
  • 打赏
  • 举报
回复
打错了:(
是FlashWindow
pankun 2003-10-16
  • 打赏
  • 举报
回复
要闪动窗体标题栏用FlaseWindow就可以了
gdwyh 2003-10-16
  • 打赏
  • 举报
回复
加一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.
Delphi_Li 2003-10-16
  • 打赏
  • 举报
回复
最笨的方法:
使用一个定时器,定时刷新你的form的Caption!!!

闪烁:一次显示,一次为空
左右移动:可以在Caption前面不断增加空格/减少空格来达到移动的效果!!!
vagerent 2003-10-16
  • 打赏
  • 举报
回复
可以在她caption前面加空格阿,做个循环。闪烁不会阿,帮你顶。

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧