Private
timer:Ttimer;
procedure MyTimerDo(Sender:Tobject);
procedure create ;
timer:=TtIMER.Create;
Timer.Enabled:=True;
timer.Ontimer:=MyTimerDo;
end;
procedure MyTimerDo(Sender:Tob……
转载于:https://www.cnblogs.com/Siegel/p/6920292.html
Private
timer:Ttimer;
procedure MyTimerDo(Sender:Tobject);
procedure create ;
timer:=TtIMER.Create;
Timer.Enabled:=True;
timer.Ontimer:=MyTimerDo;
end;
procedure MyTimerDo(Sender:Tob……
转载于:https://www.cnblogs.com/Siegel/p/6920292.html