Hallo,
ich bin noch ein ziemlicher Anfänger in Delphi, deswegen frag ich bei meinem folgenden Problem hier nach:
Ich habe eine Procedure für einen Button geschrieben(siehe unten), dies ist noch nichts Tolles, aber
nun besitzt mein Program geschlage 50 Buttons davon welche die gleiche Funktionaliät dieses Buttons
übernehmen sollen.
Wie man sehen kann zählt der Button beim Klick einen Zähler hoch, nun soll dies
aber bei allen 50 Buttons geschehen, aber nur wenn man auf den jeweiligen Button klickt.
Vielen Dank für eventuelle Hilfe,
mfg Mogtar
Delphi-Quellcode:
procedure TForm8.Button1Click(Sender: TObject);
begin
if (Button1.Caption <> '') then
begin
if (StrToInt(Button1.Caption) < 9) OR (Button1.Caption = '') then
begin
Button1.Caption := IntToStr(StrToInt(Button1.Caption) + 1);
end
else
begin
Button1.Caption := '';
end;
end
else
begin
Button1.Caption := '0';
end;
end;