Button Clicks zählen

[toms]

Zitat von Wolfgang Mix:

Ja, an global habe ich auch schon gedacht, lokal wäre mir das lieber. Geht das?
Danke für die schnelle Antwort.

Wenn's unbedingt lokal sein muss:

(1 - Tag-Eigenschaft verwenden)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with (Sender as TButton) do
   Tag := Tag + 1;
end;

(2 - mit einer veränderbaren typisierten Konstanten)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
{$j+}Counter: Longword = 0;{$j-} // 
begin
  with (Sender as TButton) do
    Counter := Counter + 1;
end;