急求 关于timer

Question

timer 中设置到一定时间 进行操作 A
BUTTON CLICK 也要进行 操作A
但是操作A不能重复
可以在timer中设置 button.enabled:=false
也可以 CLICK 中设置 timer1.enabled:=false但是button click中我设了提示框
也就是说出现提示框后 timer1设的时限到了
a 执行；然后提示框中点‘yes’
a再次执行请问有什么办法可以解决

Answer 1

在a中加入timer1.enabled:=false;
点'yes'后再执行timer1.enabled:=true;

Answer 2

ls，点'yes'后执行的就是a了

Answer 3

同意楼上，设置一全局变量来检测A是否执行。在Button的提示框出现之后，跟着检测变量，如果timer执行了，变量值发生变化，点击Yes之后直接退出过程。

Answer 4

var xx :Boolean;
procedure A;
begin
  if xx then exit;
  xx := true;
  do something
  xx := false;
end;