如何在运行过程中动态生成一个非可视化的控件?

Question

比如:在程序运行过程中,当主窗体产生的同时,也动态产生了一个timer,并对它的属性和事件进行设置.

Answer 1

在create裡面
var
tmptime:ttimer;
begin
tmptime:=ttimer.create(nil)tmptime.......//設置相關屬性

Answer 2

请看以下代码,是否是这样?
procedure TForm1.Button1Click(Sender: TObject);
var tptimer:Ttimer;
begin
  tptimer:=Ttimer.create(nil);end;

Answer 3

var tptimer:Ttimer;implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
  tptimer:=Ttimer.create(nil);end;procedure TForm1.FormClose(Sender: TObject);
begin
  tptimer.Free;
end;

Answer 4

可是问题依然.
错误着重在这里---- tptimer:Ttimer;
可就是找不出出错的原因.

Answer 5

发现问题，
有二种方法可以解决，1，在页面上加一个时钟控件TTIMER
2，在uses加上 ExtCtrls单元就成了，