Question

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

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

Answer 1

添加一个timer组件，并设备相关属性，把你要执行的代码写到这个timer里，button1按下去后timer.enabled:=true;
button按下去后timer.enabled:=false;
要控制重复执行的速度，只需要设置timer的Interval属性即可，Interval值越小，重复越快，Interval越大，重复越慢

Answer 2

var
stop:boolean;

procedure someProcudure;
begin
..
end;

buttonClick();
begin
stop:=true;
end;

button1Click();
begin
stop:=false;

while not stop do
begin
someProcudure;
application.ProcessMessages;
end;
end;

Answer 3

begin
if button1.Caption='暂停读取' then
begin
timer1.Enabled:=false;
button1.Caption:='开始读取';
end
else
begin
button1.Caption:='暂停读取';
timer1.Enabled:=true;
end;
end;

Answer 4

button1click(sender);

Answer 5

keyiwenwo 正解