Question

求一段简单的Delphi代码 （如何重复执行button）

两个button按钮
button1按下去后 就重复执行，button按下去就停止
谁能给个代码呀，谢谢了1

Answer 1

在窗体上放一个timer控件，在Ontimer事件下你要重复执行的代码
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//重复执行代码
end;
之后将timer的enable设置为false
在两个按钮的点击事件写如下代码即可
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:= false;
end;

Answer 2

要知道重复执行什么?然后才能给你啊