Timer的OnTimer的事件处理了么?
解决方案 »
- MediaPlayer1
- 我做的ms word插件为什么弹出的窗体没有将word作为父窗体?
- 报表中的各控件是固定的,能不能在运行时可根据用户需要进行修改?
- 请大侠帮忙,我用IdUDPServer接收多个客户端的数据包时遇到问题, IdUDPServer.Bindings.Count使终为1,代码如下:
- 如何提高Access数据库的统计速度??
- 关于剪贴的问题---请大家帮帮忙
- 用DBGrid配Query组件,如何实现单击修改数据效果??
- 求用ShellExecute打开含有用户名和密码的共享目录的使用方法及探测98/ME共享密码的方法或源程序!
- 请教高手如何调用一个Form的Show事件却不让它在屏幕上出现?
- Midas问题
- 滚功条
- 怎样用DIRECTSOUND
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp,ExtCtrls;type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
ClientSocket1: TClientSocket;
procedure FormCreate(Sender: TObject);
procedure a(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.a(Sender: TObject);
begin
showmessage('呵呵');
end;procedure TForm1.FormCreate(Sender: TObject);
var
t : Ttimer;
begin
t := ttimer.Create(self);
t.Name := 't1';
t.Interval := 5000;
t.OnTimer := a;
end;end.
全部设置好了,就是这个事件不触发啊。
另外,如果没有触发事件的话,可能是你的线程已经自动结束释放了。
帮帮忙