说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

编辑:说三道四文库 发布时间:2018-02-24 04:43
HTML文档下载 WORD文档下载 PDF文档下载
比如:在程序运行过程中,当主窗体产生的同时,也动态产生了一个timer,并对它的属性和事件进行设置.
在create裡面
var
tmptime:ttimer;
begin
tmptime:=ttimer.create(nil)

tmptime.......//設置相關屬性
楼上说的对呀。给分吧。
请看以下代码,是否是这样?
procedure TForm1.Button1Click(Sender: TObject);
var tptimer:Ttimer;
begin
  tptimer:=Ttimer.create(nil);

end;
var tptimer:Ttimer;

implementation


procedure TForm1.FormCreate(Sender: TObject);
begin
  tptimer:=Ttimer.create(nil);

end;

procedure TForm1.FormClose(Sender: TObject);
begin
  tptimer.Free;
end;
可是问题依然.
错误着重在这里---- tptimer:Ttimer;
可就是找不出出错的原因.
发现问题,
有二种方法可以解决,1,在页面上加一个时钟控件TTIMER
2,在uses加上 ExtCtrls单元就成了,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘