类中动态生成控件问题？

Question

SendTimer.OnTimer :=UpdateGuardTimer; // UpdateSendTimer;
procedure T.UpdateGuardTimer(Sender: TObject);
是你这里写错了还是程序写错了？你的SendTimer是怎么定义的，在那定义的？

Answer 1

是我写错！
我生成了两个时钟！
你就当是SendTimer啦！
  private
    { Private declarations }
     SendTimer:TTimer;

Answer 2

是不是对FORM1中的VCL控不能直接引用！
便编译也没报错啊？

Answer 3

TTimer.Create(AOwner :TComponent);你的T肯定不是TComponent吧？

Answer 4

呵呵 说错了，不是TComponent的话编译器会报告的。你在OnTimer里设个断点嘛，看看有没有执行到。

Answer 5

procedure T.UpdateGuardTimer(Sender: TObject);
begin
GuardTimer.Enabled :=false;
form1.Label3.Caption :='Con Time '+FormatDateTime('hh:mm:ss',now);
GuardTimer.Enabled :=true;
end;  
在这段代码中GuardTimer是那里的？
这样改改：
procedure T.UpdateGuardTimer(Sender: TObject);
begin
if Sender is TTimer then
(Send as TTimer).Enabled :=false;
form1.Label3.Caption :='Con Time '+FormatDateTime('hh:mm:ss',now);
(Send as TTimer).Enabled :=true;
end;  

Answer 6

不好意思，有点疏漏
procedure T.UpdateGuardTimer(Sender: TObject);
begin
if Sender is TTimer then
  begin
  ( Send as TTimer).Enabled :=false;
   form1.Label3.Caption :='Con Time '+FormatDateTime('hh:mm:ss',now);
  ( Send as TTimer).Enabled :=true;
  end; 
end;