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
druck:=TForm.Create(self); wird der Owner gesetzt. Nicht Parent!

Weise nach create explizit den Parent zu:
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!
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? (Ich meine worauf das verweist!)

[orakel]

Zitat:

KA, aber wer oder was ist eigentlich Self?

???

Auf das erstellte Objekt selbst??

[SirThornberry]

Zitat von orakel:

Zitat:

KA, aber wer oder was ist eigentlich Self?

???

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 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...
P.S. Ein Formular sollte in diesem Fall als Owner eigentlich immer Application haben...