Form - Parent - Problem

Reply to Form - Parent - Problem on Mon, 29 Nov 2004 08:14:17 GMT

F98 — Mon, 29 Nov 2004 08:14:17 GMT

Hallo Universum!

Folgendes klitzekleines Problem:

Ich erzeuge ein TForm innerhalb einer TForm (kein MDI!) wie folgt:

Form2 = new TForm(Application);
     Form2->Parent=this; //NULL für Focus
     Form2->BorderStyle = bsSizeable;
     Form2->Left=random(100);
     Form2->Top=random(100);
     Form2->Height=300;
     Form2->Width=300;

     TEdit *Edit = new TEdit(Form2);
     Edit->Top = 0;
     Edit->Left = 0;
     Edit->Parent = Form2;

     Form2->Show();

So, wie zu erwarten wird ein kleines Window mit einem TEdit erzeugt. Das Problem ist nun, dass die neue TForm keinen Focus hat und auch das TEdit nicht focusiert/editiert werden kann, solange der Parent gesetzt ist. Ist Parent == NULL funktioniert alles, bloß dass das Fenster dann halt nicht mehr nur innerhalb des Main-Windows verschiebbar ist.

Hat jemand eine Erklärung/Lösung parat, warum das so ist?

Reply to Form - Parent - Problem on Mon, 29 Nov 2004 16:24:26 GMT

DerAltenburger — Mon, 29 Nov 2004 16:24:26 GMT

mach mal statt

Form2->Parent= ...;

::SetParent(...);

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 06:08:04 GMT

[[global:guest]] — Tue, 30 Nov 2004 06:08:04 GMT

Forms haben gar keinen Parent...

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 07:19:47 GMT

Peter — Tue, 30 Nov 2004 07:19:47 GMT

Forms haben gar keinen Parent...

Haben sie jawohl !

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 08:01:44 GMT

[[global:guest]] — Tue, 30 Nov 2004 08:01:44 GMT

Dann prüf es doch einfach mal mit dem Debugger...

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 08:30:08 GMT

Braunstein — Tue, 30 Nov 2004 08:30:08 GMT

Hallo,

TForm kann sehr wohl einen Parent haben. Lediglich bei Forms die direkt auf dem Windows-Desktop liegen (wohl die Meisten) ist Parent gleich NULL (siehe Borland Hilfe):

Ciao

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 10:26:34 GMT

F98 — Tue, 30 Nov 2004 10:26:34 GMT

So, wenn ich statt:

Form2->Parent = this;

folgendes probiere:

Form2->SetParent(this);

kommt

[C++ Fehler] Unit1.cpp(24): E2247 Zugriff auf '_fastcall TCustomForm::SetParent(TWinControl *)' nicht möglich

Steht auch so in der Hilfe, das das so sein muss.

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 10:26:24 GMT

Braunstein — Tue, 30 Nov 2004 10:26:24 GMT

SetParent ist in TForm privat. Du kannst also so nicht darauf zugreifen. Allerdings wird sie bei der Zuweisung Parent = this intern ohnehin aufgerufen. Parent ist ja eine Property.

__property TWinControl* Parent = {read=FParent, write=SetParent};

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 10:58:54 GMT

[[global:guest]] — Tue, 30 Nov 2004 10:58:54 GMT

Wenn man die Hilfe aufmerksam liest, steht da bei Parent was von eingebetteten Forms. Das ist hier wohl nicht der Fall, ergo muss Parent = NULL bleiben.

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 11:09:51 GMT

F98 — Tue, 30 Nov 2004 11:09:51 GMT

@Braunstein

Yo, hab ich schon gelesen.

Trotzdem ist mir nicht klar was das damit zu tun hat, ob ich den Parent setze oder nicht, ob das Fenster focusiert werden kann, oder nicht.

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 11:37:19 GMT

Braunstein — Tue, 30 Nov 2004 11:37:19 GMT

@Joe_M.
Wenn der Parent !=NULL ist, dann ist die Form eingebettet.
@F98
Da es bei Parent = NULL geht und anders nicht, muss es ja irgendwas damit zu tun haben. Ich weis allerdings auch nicht was.
Musst du die andere Form unbedingt in der Elternform bewegen ?
Wenn nicht, sollte ja auch ein TFrame reichen.
Wenn doch, müsstest du wohl Parent auf NULL setzen und WM_MOVE oder WM_MOVING abfangen und die Positionen überprüfen und ggf. setzen.

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 13:11:25 GMT

F98 — Tue, 30 Nov 2004 13:11:25 GMT

Hm. Das mit dem WM_MOVE hat mich auf die Idee gebracht, einfach ein TPanel zu nehmen und dort mit OnMouseMove zu reagieren. Diese Elemente kann man dann auch innerhalb des Fensters schön rumschieben.

Der Hintergrund der ganzen Geschichte ist, dass ich die GDI-Objekte in einer Simulationsanwendung von ca. 4600 auf ein Minimum reduzieren muss, da ich, sobald die Magische Grenze überschritten wird, GDI-Failures ohne Ende bekomme. Anscheinend kann Windows nicht mehr als ca. 4600 Fenster verarbeiten.

Reply to Form - Parent - Problem on Tue, 30 Nov 2004 18:17:30 GMT

DerAltenburger — Tue, 30 Nov 2004 18:17:30 GMT

F98 schrieb:

So, wenn ich statt:
Form2->Parent = this;
folgendes probiere:
Form2->SetParent(this);
kommt

[C++ Fehler] Unit1.cpp(24): E2247 Zugriff auf '_fastcall TCustomForm::SetParent(TWinControl *)' nicht möglich

Steht auch so in der Hilfe, das das so sein muss.

**************************************************************
Du solltest ja auch

::SetParent(ChildHandle,NewParentWinHandle);

probieren.

Reply to Form - Parent - Problem on Wed, 01 Dec 2004 08:25:19 GMT

F98 — Wed, 01 Dec 2004 08:25:19 GMT

Eine Triumph-Fanfare für den Altenburger!!!!

[cpp]
Form2 = new TForm(Application);
Form2->Parent=NULL;
::SetParent(Form2->Handle,this->Handle);
Form2->BorderStyle = bsSizeable;
Form2->Left=random(100);
Form2->Top=random(100);
Form2->Height=300;
Form2->Width=300;

TEdit *Edit = new TEdit(Form2);
Edit->Top = 0;
Edit->Left = 0;
Edit->Parent = Form2;

Form2->Show();
[/cpp]

Da muss man erst mal drauf kommen! Mir ist aber immer noch unklar, warum der selbe Effekt nicht mit einem simplen Form2->Parent=this; funktioniert.

Reply to Form - Parent - Problem on Fri, 03 Dec 2004 18:38:20 GMT

DerAltenburger — Fri, 03 Dec 2004 18:38:20 GMT

Ich denke mal:

Form->Parent ... ist ne Borland Anpassung der WinApi- Funktion SetParent

::SetParent ruft die WinApi- Funktion von Windows!

Reply to Form - Parent - Problem on Mon, 06 Dec 2004 07:10:59 GMT

F98 — Mon, 06 Dec 2004 07:10:59 GMT

... und wieder mal schlecht umgesetzt, wie bei "Scaled=true"!