Wie der Titel schon verrät habe ich ein Problem mit BitBtn.
Ich hab die BitBtn in einem Panel eingefügt. Das Panel hab ich dann mit einem OnClick Ereignis versehen. In diesem hab ich dann folgenden Code geschrieben:
Delphi-Quellcode:
procedure TForm5.plRechnungClick(Sender: TObject);
begin
if Sender = bbt10cent then Preis := Preis - 0.1;
if Sender = bbt20cent then Preis := Preis - 0.2;
if Sender = bbt50cent then Preis := Preis - 0.5;
if Sender = bbt1euro then Preis := Preis - 1;
if Sender = bbt2euro then Preis := Preis - 2;
if Sender = bbt5euro then Preis := Preis - 5;
if Sender = bbt10euro then Preis := Preis - 10;
if Sender = bbt20euro then Preis := Preis - 20;
if Sender = bbt50euro then Preis := Preis - 50;
if Preis<=0 then
begin
lbPreis.Caption := FloatToStrF(0,ffCurrency,6,2);
lbWechsel.Caption := FloatToStrF(-Preis,ffCurrency,6,2);
Preis := 0;
end
else lbpreis.Caption:=FloatToStrF(Preis,ffCurrency,6,2);
end;
Die eig. funktion der BitBtn ist es, das lbPreis - Label wieder auf 0 bzw. unter null zu setzen (man kann auch ins Minus geraten). Doch wenn ich darauf klicke, passiert nichts.
Wenn ihr aus dem Abschnitt keinen Fehler entnehmen könnt, dann lad ich gerne das Projekt hoch, damit ihr es euch einsehen könnt. Ich weiß nicht mehr weiter !