屏幕上有文字滚动,如果用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记录日志的问题,创建当前log写入日志文件发生错误 求算法,PLC梯形图向语句转换 怎样知道键盘哪些键正在被按下 如何判断email地址的合法性(在线等) 如何将数据写入已做好格式的Excel报表中 我在有delphi的机器上的数据库程序 请问怎么样同时连接同一个服务器上的几个数据库? 获取系统可用内存? 在Delphi中如何把做好的软件发布? 我們公司開發的即時通軟件,Delphi7 的 ★★★★★这里有成都航院的吗?(成都航院毕业的程序员请进)★★★★★ 新手问题,帮忙一下
在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