rt
解决方案 »
- 关于dll初始话的问题
- 关于JPEG文件中霍夫曼编码的问题??请教高手
- 江湖告急!!!!--DELPHIT程序员主要做什么?
- 谁看过李维的《Delphi 5.X ADO_MTS_COM+高级程序设计篇》这本书?
- 我用ADO操作ACCESS数据库有时会出现“缺少更新或刷新的键列信息”,不知是何原因?
- 请教那有DELPHI6.0的补丁啊?
- 有关两台PC机文件如何传输?
- 请大家介绍几个求职的网站,我在广东,好像51JOB上招用DELPI的很少!
- 怎样把excel的格式导入Delphi中?
- 怎樣用Integer和Double類型數據混合運算﹐有轉換函數嗎﹖
- 如何获取指定进程的句柄?
- 如何在程序中检测声音设备是否已被其它程序占用
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,在这种情况下,我就不知道了。