如何知道点击了多少次按钮？

Question

第二次和第三次点击按钮后我想做点什么等等。

Answer 1

声明表单级变量，并在每次单击该按钮时递增它。

type 
    TForm1 = class(TForm) 
    // component/control variables 
    private 
    FClickCount: Integer; 
    end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    FClickCount := FClickCount + 1; // or Inc(FClickCount); 
end; 

Answer 2

我知道你已经接受了答案，但是，FWIW，这是我该怎么做的。

如果按钮点击次数并不需要的OnClick（）处理器之外使用，你可以保持计数器本地的处理程序，通过使用已定义的常是这样的：

procedure TForm1.Button1.click(Sender: TObject); 
{$J+} 
const 
    counter: integer = 0; 
{$J-} 
begin 
    inc(counter); 

    if (counter < 2) then exit; 
end; 

注：

1）{$ J +}允许赋值给键入的常量。

2）像这样的类型常量的使用已被弃用多年（尽管它们对于像这样的东西很有用 - 保持声明和使用“变量”彼此靠近对我来说是件好事书和使用表单级别变量这似乎是错误的，因为它破坏封装）。