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;

[TurboDennis]

Daumen hoch! Danke für die ausführlichen Antworten!
Und Du hast Recht, ich hätte es in der Demo nachsehen können Ich hab allerdings kein Delphi sondern arbeite mich in Lazarus ein.

[Perlsau]

Kurze Frage: Was sind "Selbstlernforen"? Und sollte es die geben, was wären dann "Nicht-Selbstlernforen"? Solche, bei denen man jeden gewünschten Code frei Haus erhält? Copy'n'Paste-Foren?

[TurboDennis]

Hmm. Ich weiß nicht worauf Du anspielst. Ich meinte jedenfalls Plattformen wo Anfängern das Programmieren mit FreePascal nahegelegt wird. Anleitung fürs erste HalloWelt Programm usw.
Es kann sein, dass ich Profis mit meinen albernen Fragen nerve. Ich bin jedenfalls froh dass sich Leute bereit erklären zu helfen. Nur so komme ich weiter. In meiner Stadt habe ich leider keinen VHS Kurs zu dem Thema gefunden.

[Perlsau]

Ich spiele auf die Frage an, die sich mir beim Lesen des unbekannten Wortes "Selbstlernforen" stellte: Kann man denn irgendwie anders als selbst lernen? Mir fiel dabei sowas wie "Selbstesser" und "Selbstatmer" ein, man kann ja nur selber essen und selber atmen. Oder anders ausgedrückt: Lernen ist ein Vorgang, den man nur selbst herbei- und ausführen kann. Ein Forum kann Hinweise und Unterstützung bieten, Lernen muß man aber immer noch selber. Es gibt in den Delphiforen durchaus auch Zeitgenossen, die ganz offensichtlich nicht lernen und das auch nicht beabsichtigen, wenn man ihnen Unterstützung bietet. Daher ist die Frage nicht allzu abwegig.

Davon abgesehen mußt du dich nicht dafür rechtfertigen, hier im Forum eine Frage gestellt zu haben. Und einen VHS-Kurs in Delphi-Programmierung hab ich auch nicht genossen, sondern alle Fähigkeiten autodidaktisch erworben - das nennt man übrigens Lernen