Ich habe das Problem, das auf meinem Form1 Säulen gezeichnet werden und deren Anzahl auf Form2 mithilfe von CheckBoxen durch den User geregelt werden kann. Er kann maximal 6 Checkboxen anwählen, also wäre Progressbar1.max 60, nun wollte ich es so lösen das ich den maximal Wert der Progressbar in folgender procedure ändern lasse :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TFRM_wahlblatt.BTN_besteatigenClick(Sender: TObject);
begin
if CBX_spd.Checked
then FRM_wahlergebnis.anzahldersaeule:=FRM_wahlergebnis.anzahldersaeule+1;
if CBX_cdu.Checked
then FRM_wahlergebnis.anzahldersaeule:=FRM_wahlergebnis.anzahldersaeule+1;
if CBX_fdp.Checked
then FRM_wahlergebnis.anzahldersaeule:=FRM_wahlergebnis.anzahldersaeule+1;
if CBX_gruene.Checked
then FRM_wahlergebnis.anzahldersaeule:=FRM_wahlergebnis.anzahldersaeule+1;
if CBX_linken.Checked
then FRM_wahlergebnis.anzahldersaeule:=FRM_wahlergebnis.anzahldersaeule+1;
if CBX_sonstige.Checked
then FRM_wahlergebnis.anzahldersaeule:=FRM_wahlergebnis.anzahldersaeule+1;
end; |
In der procedure auf dem Form2 wird schon die Anzahl der Säulen die gezeichnet werden sollen geregelt. Gibt es nun einen Befehl den man hier bei der if Abfrage einbauen könnte, der lautet
if CheckBox1.checked :=false then Progressbar.max := Progressbar.max-10; ?
Danke für die Hilfe
MfG
Raffael
MadDoctor