Dieser Event wird einfach allen Buttons zugewiesen.
Ich habe die Funktion etwas vereinfacht. Die Logik ist aber nicht ganz klar. Wie das "< 9" funktionieren soll ist unverstaendlich.
Delphi-Quellcode:
procedure TForm8.Button1Click(Sender: TObject);
begin
with Sender as TButton do
if Caption <> '' then
begin
if StrToInt(Caption) < 9 then
Caption := IntToStr(StrToInt(Caption) + 1)
else
Caption := '';
end
else
Caption := '0';
end;
Besser ist es den Wert nicht in der Caption selbst aufzuheben, sondern die Tag-Property der Komponente zu verwenden. Die Caption sollte immer nur zur Darstellung verwendet werden.
Delphi-Quellcode:
procedure TForm8.Button1Click(Sender: TObject);
begin
with Sender as TButton do
begin
Tag := Tag + 1;
Caption := IntToStr(Tag);
end;
end;
Jetzt mal ohne das "< 9" zu beruecksichtigen.