Hallo!
Ich habe zwei Listen vom Typ TObjectList.
In diesen werden dynamisch Objekte vom Typ TGroupBox bzw. TTreeview erzeugt:
Delphi-Quellcode:
i:=Box.Add(TGroupBox.Create(MainForm));
Tree.Add(TTreeView.Create(MainForm));
Jetzt setze ich ein paar Werte:
Delphi-Quellcode:
with TGroupBox(Box.Items[i]) do
begin
OnMouseDown:=MainForm.GroupBox2MouseDown;
Parent:=MainForm.Ansicht1;
end;
with TTreeView(Tree.Items[i]) do
begin
align:=alClient;
Parent:=TGroupBox(Box.Items[i]); //<-- HIER!!
end;
Wende ich das ganze jetzt an erhalte ich eine "Ungültige Zeigeroperation".
(Zeile mit HIER!! markiert)
Dennoch wird das TreeView auf der Groupbox angezeigt, also richtig.
Was muss ich machen um diese Meldung weg zu bekommen?
MfG
maximus Caesar