Probleme mit BitBtn...

[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