Probleme mit BitBtn...

[Pro-Grammierer]

Ah, stimmt. Peinlich peinlich xD

[DeddyH]

Einige Dinge sind mir aufgefallen. So darf die Schaltfläche "Tanken" nicht aktiv sein, bevor nicht der Kraftstoff ausgewählt wurde (was tanke ich da jetzt eigentlich? Egal, Hauptsache umsonst ). Und bei Überzahlung sollte der weitere Einwurf entweder nicht möglich sein oder zumindest auf das Wechselgeld aufgeschlagen werden.

[Pro-Grammierer]

Ja das sind halt so "Kleinigkeiten", die ich einfach nicht in den Griff bekomme >.<

Das mit dem btTanken hab ich hinbekommen, war ja nicht sonderlich schwer. Einfach auf False stellen und bei den 4 Treibstoff Buttons
btTanken.Enabled:=true; einfügen.
Ich versuch das mit dem Wechsel Button noch einmal, der hält mich schon seit 1 1/2 Stunden auf >.< xD

[DeddyH]

Du fragst doch Preis auf <= 0 ab. Wenn das so ist, enable doch den Button.

Delphi-Quellcode:

   if Preis<=0 then
     begin
      lbPreis.Caption := FloatToStrF(0,ffCurrency,6,2);
      lbWechsel.Caption := FloatToStrF(-Preis,ffCurrency,6,2);
      Preis := 0;
      btWechsel.Enabled := True;  //hier
     end
   else lbpreis.Caption:=FloatToStrF(Preis,ffCurrency,6,2);

Wobei ich es ganz allgemein besser gefunden hätte, Logik und Darstellung zu trennen, aber das muss man erst einmal lernen und verstehen

[Pro-Grammierer]

Wow vielen Dank, ich denke ich bin soweit fertig. Bis auf das lbWechsel, dass da dann halt immer 10 Euro oder so erscheint. Naja, da ich ja noch am Anfang bin wird er da wahrscheinlich drüber wegsehen.