CheckBox auf MainForm durch eigenes Objekt in ext. unit

[pmc]

Hallo,

habe mich jetzt schon einige zeit durch das forum gewühlt und nichts entsprechndes gefunden.

Habe folgendes Problem :

2 Units , ein mit "Form1" und eine mit meinem eigenen objekt.
Mit dem Objekt sollen 8 Checkboxen erzeugt werden (also eine 8-fach CheckBox) und auf form1 abgebildet werden.
Jedoch kommt durch das Create immer ein Fehler das "ausserhalb des speicherbereichs gearbeitet wird"....

main.pas :

Delphi-Quellcode:

type TForm1 = Class(TForm)
       :
     feld : CB8Fach;
       :
     end;



procedure TForm1.FormCreate(...);
begin     
  feld := CB8Fach.Create(owner:TComponent);
end;

Obj.pas :

Delphi-Quellcode:

type CB8Fach = class
     private
       CBFeld : Array[1..8] of TCheckBox;
     public
       constructor Create(owner:TComponent);
     end;

       :

constructor CB8Fach.create(owner:TComponent);
var i : integer;
begin
  for i:=1 to 8 do
  begin
    CBFeld[i] := TCheckBox.create(owner); //da gibts jetzt irgendwo nen problem 
    CBFeld[i].parent := TWidgetControl(owner);
    CBFeld[i].width := 15;
    CBFeld[i].height := 15;
    CBFeld[i].top := 10;
    CBFeld[i].left := 10 + (i-1)*16;
  end;
end;

Hoffe mir kann hier jdm helfen....

Gruss PMC

[marabu]

Hallo.

Delphi-Quellcode:

// ...
  CBFeld[i] := TCheckBox.create(owner); //da gibts jetzt irgendwo nen problem 
  CBFeld[i].parent := TWidgetControl(owner); 
// ...

Seltsame Namenskonvention - und statt TWidgetControl sollte es TWinControl heißen, aber ansonsten kann ich dein Problem nicht nachvollziehen.

Grüße vom marabu

[shmia]

Zitat von pmc:

Mit dem Objekt sollen 8 Checkboxen erzeugt werden (also eine 8-fach CheckBox) und auf form1 abgebildet werden.

Für diesen Zweck gibt es doch TCheckListBox auf dem Reiter "Zusätzlich".
Deine 8-fach Checkbox ist doch viel zu unflexibel, um daraus eine Komponente zu machen.