难题一个？

Question

请问如何在一个没有form的程序里调用timer控件使用ontime事件呢？
也就是说在一个只有项目文件*.prj和只有*.pas而没有*.frm的程序里调用timer控件的ontime事件？
代码写在unit里的。

Answer 1

timer应该用不了吧
可以用API实现计时功能
(queryperformancefrequency和queryperformancecounter)

Answer 2

加一个Form 但是不让他显示不就的了。

Answer 3

可以动态创建TTIMER啊？
没有什么难度；

Answer 4

要做到这一点，必须自己生成windows的消息队列。可以找一找陈宽达写的《delphi深度历险》，上面写的很详细。可惜我忘了

Answer 5

Unit Unit1;
...
Type...ATimer: TTimer;procedure MyTimer(Sender: TObject);
begin
  Timer Event;
  ...
end;program Chutian;uses
  Unit1 in 'Unit1.pas';{$R *.TLB}{$R *.res}begin
  Application.Initialize;
  Unit1.ATimer := TTimer.Create(nil);
  Unit1.ATimer.OnTimer := Unit1.MyTimer;
  Unit1.ATimer.Enable := True; 
  Application.Run;
end.