如何把参数传到一个Timer的事件里

Question

把参数定义成FORM的成本变量(最好私有)
或者另定义一个过程,在Timer的事件处理中调用.

Answer 1

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FIndex: Integer;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := IntToStr(FIndex);
  Inc(FIndex);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  FIndex := 0;
end;

Answer 2

我这样写也不知，QR是全局变量
public
    procedure MyQR(var mQR:TADOQuery);procedure TForm1.MyQR(var mQR: TADOQuery);
begin
  QR:=mQR;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  QR...;;;
end;

Answer 3

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Assigned(QR) then //你的写也可以//建议加个判断
    {};
end;

Answer 4

Assigned()//判断变量是否分配了内存资源

Answer 5

多谢zswang(伴水)(需要充充电)　,这个我知道，我是在MyQR里触发Timer1的，其它一真关闭，但不行，我是在第三个窗体上调用这个过程，而数据集即参数（vQR）是在第二个窗体上

Answer 6

每个控件不是有一个Tag属性吗,可以作为整形参数来用啊
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    ....
    Timer1.Tag := ...(当参数)  
end;