自创建ttimer的实例timer1后，如何把timer1的ontimer事件与自定义的事件过程联系起来？

Question

如题。
还有就是自定义的事件过程的格式是怎样的？？

Answer 1

procedure tform1.aaa(Sender: TObject);
begin
  ... 
end;创建后Timer后
timer1.ontimer = aaa;
就可以了

Answer 2

把自己写一个ontimer事件赋给你的timer1，然后将你的过程放在
procedure Yourontimer(Sender: TObject);
begin
  你的过程；
end;Timer1.Ontimer := YourOnTimer;

Answer 3

[Error] sFunc.pas(192): Incompatible types: 'method pointer and regular procedure'
我照上面两位做了，报这个错。

Answer 4

procedure myTimer(Sender: TObject);
var
  fName:string;
//-------------------------------------------------------------------
begin
snapscreen(stream);
createFileName(fname);
keepbmp(99);
stream.SaveToFile(fName);
end;
.......................................................
begin
timer1:=ttimer.create(nil);
timer1.Interval:=5000;
timer1.OnTimer:=mytimer;
timer1.Enabled:=false;
end;
[Error] sFunc.pas(192): Incompatible types: 'method pointer and regular procedure'
我照上面两位做了，报这个错。

Answer 5

自定义过程放在Form的Publec 或private  或type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;