Parent - Problem

[orakel]

Hi,
warum funktioniert das nicht?:

Delphi-Quellcode:

var druck:TForm;
druckframe:TFrame13;
begin
 druck:=TForm.Create(self);
 druck.Visible:=true;
 druck.Color:=clwhite;
 druckframe:=TFrame13.Create(druck);
 folgende Zele geht nicht...
 druckframe.Parent:=druck;
 druck.Width:=druckframe.Width+10;
 druck.Height:=druckframe.height+10;
 {...}

Das komische ist, das keine Fehlermeldung, sondern so ein "CPU" Fenster kommt. Was bedeutet das?

[Stevie]

Ich sehe so keinen Fehler, das müsste funktionieren, aber interessant zu wissen wäre, in welcher Funktion das steht, was du geschrieben hast...

[oki]

Hi,

durch

Delphi-Quellcode:

druck:=TForm.Create(self);

wird der Owner gesetzt. Nicht Parent!

Weise nach create explizit den Parent zu:

Delphi-Quellcode:

druck.Parent := self;

Dann müßte es gehen.

Gruß oki

edit oki:

Tschuldigung, hab beim lesen nicht richtig aufgepaßt.
Schau nach, ob die Typen übereinstimmen (Parent vom Typ TComponent). Ich hatte in c-DLL's auch schon versteckte Breakpoints, bei denen sich in Delphi das CPU-Fenster gemeldet hat. stört so nur beim debuggen und ist sonst umsonst.

[Steve]

² oki: ich glaub, Dein erster Ansatz hat schon gestimmt, "druck" kann imho nur parent sein, wenn es selbst nen parent hat.

Gruß
Stephan

[Stevie]

Ein Form benötigt nicht die explizite Angabe eines Parents!

[orakel]

Hey, ich hab die Problemzeile gefunden!

Delphi-Quellcode:

druck.visible:=true;

Ohne diese Zeile funktioniert einwandfrei...
...weiss aber net warum! Weißes jemand von euch?(würd mich schon interessieren)

Trotzdem danke für euer Bemühen

[Stevie]

KA, aber wer oder was ist eigentlich Self? :stupid: (Ich meine worauf das verweist!)

[orakel]

Zitat:

KA, aber wer oder was ist eigentlich Self?

??? :gruebel:

Auf das erstellte Objekt selbst??

[SirThornberry]

Zitat:

Zitat von orakel

Zitat:

KA, aber wer oder was ist eigentlich Self?

??? :gruebel:

Auf das erstellte Objekt selbst??

Self ist in dem Fall das Object von welchem aus "druck" erstellt wird. also das Object in welchem

Delphi-Quellcode:

var druck:TForm;
druckframe:TFrame13;
begin
druck:=TForm.Create(self);
druck.Visible:=true;
druck.Color:=clwhite;
druckframe:=TFrame13.Create(druck);
folgende Zele geht nicht...
druckframe.Parent:=druck;
druck.Width:=druckframe.Width+10;
druck.Height:=druckframe.height+10;
{...}

aufgerufen wird

[Stevie]

Zitat:

Zitat von orakel

Auf das erstellte Objekt selbst??

Das weiß ich doch!!! :| Ich wollte doch nur wissen, was Self für ein Objekt ist, weil da nicht die Prozedurkopf steht, sondern nur der Rumpf... :roll:
P.S. Ein Formular sollte in diesem Fall als Owner eigentlich immer Application haben...

[oki]

Hi,

hier haben natürlich alle unterstellt, dass die Code-Schnipsel Bestandteil einer Procedure oder Function eines Objectes sind. Innerhalb einer Object-Methode repräsentiert self die eigene Object-Instance.

Sicher werden Formulare üblicherweise für den Owner mit Application belegt. Jeder andere Owner ist aber auch möglich, solange die Typen passen. Manchmal ist es auch hilfreich einem Formular einen speziellen Owner zu verpassen. So kann mann z.B. direkte Zugehörigkeiten von Fenstern zu speziellen Objekten manifestieren.

Ich benutze manchmal NVCL-Objekte in denen ich Formulare als Einstellungsfenster creiere. Hier weise ich immer das NVCL-Objekt als Besitzer zu. Bis dato war das so auch o.k..

Gruß oki