Durch Klick auf Button eine Integervariable erhöhen

[Christian Seehase]

Moin Elachiim,

ich weiss ja nicht, wozu Du diese Funktionalität brauchst, aber Du könntest auch, statt einer Variablen, die Eigenschaft Tag des Buttons dafür verwenden (falls Du Tag nicht für etwas anderes brauchst).

Delphi-Quellcode:

procedure TForm1.Form1Create(Sender : TObject);
begin
  Button1.Tag := 0; // Ist zwar bei Programmstart immer = 0, aber sicher ist sicher.
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  Button1.Tag := Button1.Tag+1;
end;