如何知道點擊了多少次按鈕？

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）像這樣的類型常量的使用已被棄用多年（儘管它們對於像這樣的東西很有用 - 保持聲明和使用「變量」彼此靠近對我來說是件好事書和使用表單級別變量這似乎是錯誤的，因爲它破壞封裝）。