wie ist "Preis" definiert? - bzw. wo?
kann es sein, dass du irgendwo den Wert von Preis wieder auf 15€ setzt?
Du kannst ruhig eine OnClick-Ereignis jedem BitBtn-OnClick-Ereignis
zuweisen und dann mit deiner Sender=BitBtn Abfrage den jeweiligen
Button abfragen.
Wobei du dir mal die Property "Tag" anschauen solltest. Wenn du jedem
Button einen Wert in Tag zuweist, dann könntest in der OnClick-Procedure
den jeweiligen Button mittels:
Delphi-Quellcode:
begin
case TBitBtn(Sender).Tag of
1: ShowMessage('1');
2: ShowMessage('2');
end;
end;
den jeweiligen BitBtn-Button abfragen