同上
解决方案 »
- DBGrid记录移动怎么支持中键?
- 编写一个平台应用程序,占用CPU 100%,如何处理?
- 如何访问foxpro6的表单的属性及相关内容
- 电脑Ip地址等于127.0.0.1即表示没有连接上网,对吗??如果是在国外也对吗
- 有关单元的问题
- 谁能用findfirst,findnext举例列出某个目录下的的所有文件
- 用DELPHI7写ISAPI的程序,总是提示出错!
- 求解距离
- 李维——电子商务篇的第二章为什么不能运行!!
- DELPHI简单错误高分求教
- delphi中如何按自己的格式生成xml文件并从xml文件中解析到对应的编辑框?谢谢
- delphi有没有类似C中的STL的VCTOR 这样的数据结构阿?
Windows, Messages, SysUtils, Variants, 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
Label1.Left := Label1.Left + 1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := true;
Timer1.Interval := 100;
Timer1.Enabled := true;
end;end.