EAccessViolation bei InsertComp [gelöst, Diskussion offen]

recall · Beiträge: 449

Hallo,
wenn ich folgenden Code in meinem Proggi benutze:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

      F := TForm(FindGlobalComponent(FormPar));
      F.InsertComponent(Obj);
      TTParent := TWinControl(FindComp(F, Par));
      if TTParent<>nil then
        Obj.Parent := TTParent
      else
        Obj.Parent := F;

... dann gibts den im Titel beschriebenen Fehler ABER ERST NACH DEM PROGRAMMENDE (Also beim Schließen der MainForm)!
Lasse ich InsertComponent weg, dann funzt das Programm nicht mehr richtig, aber der Fehler ist weg ! Also liegt es zumindest daran !
Was kann ich tun ?

Viele Grüsse.

Motzi · Verfasst: Mo 08.09.03 09:31

Erklär mal ein bisschen was du vorhast... werd aus deinem obigen Code nicht ganz schlau...

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

recall · Beiträge: 449

Motzi hat folgendes geschrieben:

Erklär mal ein bisschen was du vorhast... werd aus deinem obigen Code nicht ganz schlau...

Das ganze wird ein Interpreter, nur sinds schon 800 Zeilen allein in dieser Funktion, daher kann ich sie nicht ganz posten

.
Das wäre auch unsinnig, weil ich mir dann anhören müsste, welche komischen funktionen diese funktion verwendet (nämlich auch meine eigenen) usw...

Das Ganze spielt aber sowieso keine Rolle, da egal wie ich InsertComponent benutze IMMER eine solche Fehlermeldung beim Programmende kommt (also auch wenn ich nur 2 Zeilen in nen OnClick schreiben würde)

Leider weiss ich so gar nicht woran es liegen könnte und die Delphi-Doku gibt mir da auch keinen hint !

Viele Grüsse.

barfuesser · Beiträge: 324

Wie wärs wenn Du statt

markieren

Delphi-Quelltext

1:	F.InsertComponent(Obj);

markieren

Delphi-Quelltext

1:	Obj.Owner := F

schreibst?

barfuesser

Motzi · Verfasst: Mo 08.09.03 16:33

Owner ist aber eine ReadOnly-Eigenschaft...

@recall: 800 Zeilen in einer Funktion? Wie wärs mit einer bisschen besseren Einteilung?

Aber irgendwie fehlen noch immer jede Menge Informationen für eine Fehleranalyse.. weshalb brauchst du InsertComponent? Was macht die Funktion? ect.

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

recall · Beiträge: 449

Hallo,

@motzi: Bessere Einteilung, wozu ?
Da kommt jeder Befehl fast nur 1mal vor !
Ansonsten ist das nicht viel bei über 35.000 Zeilen Quellcode, oder soll ich die in 350 procs packen ???

.

Also InserComponent brauche ich, damit meine zur LZ erstellte Form die Kompos per FindComponent findet, ohne gehts nicht

.
Aber wenn jemand hierfür eine bessere Lösung hat ???

Also, wer weiss was ???

Viele Grüsse.

Motzi · Verfasst: Mo 08.09.03 22:46

recall hat folgendes geschrieben:

Aber wenn jemand hierfür eine bessere Lösung hat ???

Solange ich nicht weiß, was genau du vor hast nicht... :roll:

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

recall · Beiträge: 449

OK, einfach folgendes Problem:

Ich will zur LZ eine TForm und irgendein TControl erzeugen.
Danach will ich, dass das neu erzeugte TControl (kann als Beispiel ein Panel sein) mit FindComponent() auffindbar ist.

Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:

Form := TForm.Create(Self);
Panel := TPanel.Create(Self);
Form.InsertComponent(Panel);
Panel.Parent := Form;

Und wenn ich das versuche gibt es die schon beschriebene Fehlermeldung !!!

Also ?

Viele Grüsse.

barfuesser · Beiträge: 324

recall hat folgendes geschrieben:

Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:

Form := TForm.Create(Self);
Panel := TPanel.Create(Self);
Form.InsertComponent(Panel);
Panel.Parent := Form;

Was spricht gegen

markieren

Delphi-Quelltext

1:
2:
3:

Form := TForm.Create(Self);
Panel := TPanel.Create(Form);
Panel.Parent := Form;

barfuesser

Motzi · Verfasst: Di 09.09.03 08:13

Muss barfuesser recht geben..! :roll:

Der Parameter des Constructors bestimmt bereits den Owner! Wenn du ihn da also schon festlegst brauchst du kein InsertComponent mehr...

BTW: was ist Self für ein Objekt?

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

recall · Beiträge: 449

thx an alle, so funktioniert es ! :beer:

Aber wieso geht denn InsertComponent nicht ???
Das kanns doch nicht sein. :?:

Viele Grüsse.

barfuesser · Beiträge: 324

Setzt Du vielleicht die Property Name des einzufügenden Objektes?

barfuesser

recall · Beiträge: 449

ja, aber der ist einmalig, also dürfte es laut Delphi-Hilfe keine Probleme geben, oder ???

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme