屏幕上有文字滚动,如果用label1.left屏幕会闪阿闪的,不行,谁有好办法??? 屏幕上有文字滚动,如果用label1.left屏幕会闪阿闪的,不行,谁有好办法???听说双进程也不行?是么? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 up在formcreate 里写也不行!!还是闪散的!! 使用AAFont吧。http://cnpack.yeah.net up那里有的三方控件阿??难道delphi真的没办法实现么? form1.DoubleBuffered:=True;使用双缓冲并且在left增加或减少的循环中加application.processmessages,使应用继续处理消息 /////放上一个TIMERinterfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);beginif label1.Visible =true thenlabel1.Visible :=falseelse label1.Visible :=true;end;procedure TForm1.FormCreate(Sender: TObject);begin timer1.Enabled :=true;end;end. 1。用两个label 交替显示 会好很多2。用StaticLabel 如何觖Delphi数据集参数中文字符截断问题? 如何在delphi中输入多行文本?请指教 制作安装盘时安装字体的问题。Windows98下不能成功。 PPFYK:来拿分! 编写控件中的问题 问题急待解决,高分相送!!! Delphi有这样的函数吗? 用实际行动为灾区重建献爱心 如何使Form上的每一个Component的height和left都是绝对位置! ?数据连接组件的内存使用! ★★★★★这里有成都航院的吗?(成都航院毕业的程序员请进)★★★★★ 新手问题,帮忙一下
在formcreate 里写也不行!!
还是闪散的!!
难道delphi真的没办法实现么?
并且在left增加或减少的循环中加application.processmessages,使应用继续处理消息
interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Visible =true then
label1.Visible :=false
else
label1.Visible :=true;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled :=true;
end;end.
2。用StaticLabel