给timer传递一个object，让timer实现每隔1秒移动object一次...

Question

var
  vObject: TObject;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if vObject is TControl then
    TControl(vObject).Left := TControl(vObject).Left + 1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  vObject := Sender;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := Button1Click;
  Button2.OnClick := Button1Click;
  Button3.OnClick := Button1Click;
end;

Answer 1

jiandan
你到底要做什么就直说，反反复复一个移动控件问题写了好几遍

Answer 2

zswang(伴水)(需要充充电)说得很正确

Answer 3

其实我只是不清楚很多过程后面的sender:Tobject到底指的是什么？

Answer 4

http://www.csdn.net/expert/topic/506/506381.shtm
救命啊

Answer 5

TTimer的Sender就是TTimer本身啊，
你看一下VCL源代码就知道了。