Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Anfänger-Frage: Aufsummieren mehrerer Button-Klicks

  Alt 28. Jan 2007, 17:39
Moin Würfel,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Solange Du mit ganzen Zahlen arbeitest, könntest Du das Ganze sogar in einer einzigen OnClick-Routine abarbeiten, indem Du den Wert, um den erhöht werden soll, in der Eigenschaft Tag des Buttons unterbringst.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TButton then begin
    inc(meineZahl,(Sender as TButton).Tag);
    Edit1.Text := IntToStr(meineZahl);
  end;
end;
Diese kannst Du dann allen betroffenen Button als OnClick-Routine zuweisen.

Den Wert für Tag kannst Du im Objekt-Inspektor, oder zur Laufzeit im OnCreate des Formulares setzen.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat