checkbox abfrage aus mehreren units

[Ferber]

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