请问怎样使用settimer和killtimer,定时触发一个过程;请说详细一点,谢谢了!!! rt 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 settimer有参数可以设置间隔时间,killtimer可以取消这个定时器。settimer的机制就是定时受到wm_timer消息,处理即刻。 我晕,你说的和delphi帮助的一样,不过还是要谢谢你!我要实际的程序,举个例好不好比如说settimer放在哪?是sendmessage(wm_timer,......?????谁能举个程序段出来啊!!谢谢各位同行了!!!! unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } procedure Timer(var msg:tmessage);message wm_timer; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginsettimer(handle,1,100,nil);end;procedure TForm1.Timer(var msg: tmessage);begin beep;end;procedure TForm1.Button2Click(Sender: TObject);beginkilltimer(handle,1);end; 谢谢你了!不过我不是要VCL下的,我的程序是要求自动打开计时器,我用createwindowes()创建窗体,也不要用if (lparam lbutton) then ....我一直设定不上,不知道为什么?麻烦您再帮帮我!!! settimer甚至可以不用任何窗体。第一个参数是0,最后一个参数是一个timerproc回调函数的地址,就完全可以在这个timerproc里面响应定时。但是至于如何killtimer,在这种情况下,我就不知道了。 不过你可以在timerproc里面判断一个全局变量,看看是否还需要计时,别忘了同步哦 THaNk u~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 客户端用DCOMConnect连接应用服务器时,客户端是否要注册该应用服务器? 关于两个较复杂的查询! 100分求c/s问题: 我想和别人合作,但是我没有做过3层架构。哪位兄长有这方面的资料,赞助一下好吗? delphi入门问题 用QUICKREP打印时怎么能动态设置打印行数!!!! 尝试着写了个应用程序服务器,却报告拒绝服务 Delphi 怎么读取*.Dat数据文件(非视频文件) 收集一些关于在delphi中或BCB中内嵌ASM的资料。。 高难问题,好久没有睡了,SOS SOS 分全给了 如何获取指定进程的句柄? 如何在程序中检测声音设备是否已被其它程序占用
settimer的机制就是定时受到wm_timer消息,处理即刻。
我要实际的程序,举个例好不好
比如说settimer放在哪?
是sendmessage(wm_timer,......?????
谁能举个程序段出来啊!!谢谢各位同行了!!!!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
procedure Timer(var msg:tmessage);message wm_timer;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
settimer(handle,1,100,nil);
end;procedure TForm1.Timer(var msg: tmessage);
begin
beep;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
killtimer(handle,1);
end;
我一直设定不上,不知道为什么?
麻烦您再帮帮我!!!
第一个参数是0,最后一个参数是一个timerproc回调函数的地址,就完全可以在这个timerproc里面响应定时。但是至于如何killtimer,在这种情况下,我就不知道了。