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