Timer的OnTimer的事件处理了么?

解决方案 »

  1.   

    想想genphone_ru(票票)的话吧!!!!!!
      

  2.   

    unit Unit1;interfaceuses
      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.
      

  3.   

    哪个TTIME要是PUBLIC变量,而已哪个procedure a也应该是PUBLIC里面
      

  4.   

    而且你的哪个TTIMER是局部变量,当程序离开这个过程后,TTIME将消失
      

  5.   

    Delphi版的人气真旺你旺、我旺、大家旺
      

  6.   

    没有啊,我的是一个新的线程啊,定义了一个Timer控件,然后类的创建的时候CReate了。
    全部设置好了,就是这个事件不触发啊。
      

  7.   

    既然用了线程,我想你应该就可以不用TTimer控件了,
    另外,如果没有触发事件的话,可能是你的线程已经自动结束释放了。
      

  8.   

    http://www.csdn.net/Expert/topic/508/508450.shtm
    帮帮忙