Progress Bar

[p80286]

Dann mach dir doch einmal ein paar Gedanken, was Dein Programm wann tun soll.

Bisher wird eine empfohlene Kalorienmenge in der patag.Caption angezeigt, je nachdem ob weiblich oder männlich,
und Du rechnest irgendwelche Eingaben aus Editfeldern zusammen und gibst diese Summe in PaEingenommen.Caption aus.

Wenn Du hiermit arbeiten willst, eine globale Variable für die Kalorienzahl wäre vllt. angebracht(?)

dann setzt Du das progressbar.Min auf 0 das Maximum auf die angestrebt Kalorienzahl und übergibst als Position die errechnete Kalorienzahl.
Nur wenn man sich in Richtung übergewicht bewegt, dann wird das nicht visualisiert.

Gruß
K-H

[Jumpy]

ChMaenlich.Checked ist ja eine Eigenschaft, die du abfragst. Aber, du fragst sie erst ab, wenn auf das Panel geklickt wird in TForm1.PaTagClick(Sender: TObject).
PaTagClick ist dabei ein Ereigniss, also es passiert irgendwas und das löst dann die Ausführung des Codes in der entsprechenden Prozedur aus.

Auch checkboxen haben Ereignisse und du reagierst halt einfach auf das Ereignis, dass eine Checkbox geklickt wurde und änderst in dieser Ereignisroutine den Text auf dem Panel.

Du brauchst dann natürlich die Prozedur und das Ereignis PaTagClick nicht mehr.