Button wird sichtbar

**justMatzi**

Hallo Community,
ich habe folgende Frage: Ich habe ein Programm geschrieben, dass vorsieht, das ein Button sichtbar wird bzw. eingeschaltet wird, wenn eine Variable einen Wert über 0 hat. Ist der Wert aber nun gleich 0, soll dieser ausgeschaltet bleiben und dafür ein anderer Button aktiviert werden.
Nun klappt das leider nicht so ganz. Der Code sieht so aus:

markieren

Code:

			procedure TForm1.B_100erClick(Sender: TObject);

begin

 Preis:=Preis-100;

 L_Rest.Caption:=inttostr(Preis)+'€';

 if Preis <=0 then

  begin

   L_Wechsel.Caption:='Ihr Wechselgeld: '+inttostr((Preis-Wechsel)*-1)+'€';

   L_Rest.Caption:=inttostr(0)+'€';

   Wechsel:=Wechsel+100;

   B_5er.Enabled:=false;

   B_10er.Enabled:=false;

   B_20er.Enabled:=false;

   B_50er.Enabled:=false;

   B_100er.Enabled:=false;

   B_200er.Enabled:=false;

   B_500er.Enabled:=false;

   B_Wechsel.Enabled:=false;

   B_zumTicket.Enabled:=true;

   end;

 if Wechsel >0 then

  begin

   B_Wechsel.Enabled:=true;

   B_zumTicket.Enabled:=false;

  end;

end;

Ich hoffe ihr kennt meinen Fehler.
Danke schonmal
justMatzi

Button wird sichtbar

Button wird sichtbar

Forumregeln