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...