Buttonklicks zählen

[Sir Rufo]

Damit hast du zwei Teile:

• Zählen
• Anzeigen

Dann schreibe dir einfach zwei Methoden, die genau diese Teile ausführen

Delphi-Quellcode:

procedure TForm1.IncrementButtonCounter;
begin
  Inc( FButtonCounter );
end;

procedure TForm1.PublishButtonCounter;
begin
  ButtonCounter_Label.Caption := IntToStr( FButtonCounter );
end;

Im OnClick Event rufst du diese beiden Methode dann auf:

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender : TObject );
begin
  IncrementButtonCounter;
  PublishButtonCounter;
end;

Manchmal will man den Zähler auch zurücksetzen, also benötigen wir eine weitere Methode.
Allerdings geht es einem auch auf die Nerven, ständig an das Publish denken zu müssen, ok ändern wir mal eben:

Delphi-Quellcode:

procedure TForm1.IncrementButtonCounter;
begin
  Inc( FButtonCounter );
  PublishButtonCounter;
end;

procedure TForm1.ResetButtonCounter;
begin
  FButtonCounter := 0;
  PublishButtonCounter;
end;

procedure TForm1.PublishButtonCounter;
begin
  ButtonCounter_Label.Caption := IntToStr( FButtonCounter );
end;

procedure TForm1.Button1Click( Sender : TObject );
begin
  IncrementButtonCounter;
end;

procedure TForm1.Button2Click( Sender : TObject );
begin
  ResetButtonCounter;
end;