Du berechnest die Punktezahl vermutlich mit viel Programmieraufwand.
Die Eigenschaft TAG erscheint mir hier sehr hilfreich. (kann auch negativ sein)
Auf die Punktezahl greifst Du dann "von aussen" mit einer Eigenschaft zu.
hier ein Codeschnipsel
Delphi-Quellcode:
type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
...........
CheckBox_n: TCheckBox;
private
function GetPunkte: integer;
public
property Punkte:integer read GetPunkte;
end;
var
Form1: TForm1;
implementation
function TForm1.GetPunkte: integer;
var i:Integer;
begin
Result:=0;
for i:=0 to ComponentCount-1 do
if Components[i] is TCheckbox then
if TCheckbox(Components[i]).Checked then
inc(Result, TCheckbox(Components[i]).Tag);
end;
im Hauptformular summierst Du dann, im simpelsten Falle, die Punkt der einzelnen Formulare.
Punkte:=Form1.Punkte + Form2.Punkte + ....
Gruß vom Ferber
