Entwickler-Ecke :: Thema anzeigen - Form erzeugen - ohne dass die alte Form den Focus verliert

Josef-B - Sa 17.09.11 12:26
Titel: Form erzeugen - ohne dass die alte Form den Focus verliert

Hallo,

ich möchte in meiner Form ein neues Form erzeugen.

Delphi-Quelltext

1:
2:

form2 := tform2.create(self);
form2.show;

Form2 soll aber nicht den Focus bekommen, sondern
der Focus soll bei Form1 bleiben.

SvenAbeln - Sa 17.09.11 12:55

Hol dir den Focus doch einfach sofort wieder zurück:

Delphi-Quelltext

1:
2:
3:

form2 := tform2.create(self);
form2.show;
self.setfocus;

Josef-B - Sa 17.09.11 13:06

Ja, aber dann wird wieder onActivate beim Form1 aufgerufen.

Das möchte ich eben nicht.

jaenicke - Sa 17.09.11 14:42

Bei OnActivate vermute ich, dass dahinter ein Event hängt, in den du Code geschmissen hast, der dann nach der Anzeige des Formulars ausgeführt werden soll. Meistens finde ich da allerdings Code, der da gar nicht hingehört. Und dein Fall liest sich exakt wie ein solcher Konstruktionsfehler...

Was machst du denn dort?

SvenAbeln - Sa 17.09.11 15:22

Josef-B hat folgendes geschrieben :

Ja, aber dann wird wieder onActivate beim Form1 aufgerufen.
Das möchte ich eben nicht.

OnActivate wird auch immer aufgerufen wenn der Anwender zwischen Form2 und Form1 wechselt.

Josef-B - Sa 17.09.11 20:57

Das Form2 zeigt nur eine Message in einem Tedit an.

Es ist ne Statusmeldung. Das Fenster soll genauso lange sichtbar sein, bis
in diesem Falle eine umfangreiche Datenbankabfrage ausgeführt habe.

Nur, dass der Nutzer weiss, dass es gleich weitergeht und nicht nervös wird.

Würde auch mit einer Messagebox gehen, da weiss ich nicht wie ich die
auf Befehl bzw. beim After Open meiner Query schliesse, ohne dass der
Nutzer nochmal klicken muss.

Das ist der Hintergrund, warum eben diese "MessageForm" nicht den Focus
erhalten soll.

jaenicke - So 18.09.11 03:17

Es sollte gehen, indem du statt Show einfach ShowWindow benutzt:

Delphi-Quelltext

1:	ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);

Josef-B - So 18.09.11 12:02

mit showwindow bekommt das Formular jetzt zwar nicht den Focus.

Aber mein TEdit auf dem Form2 wird nicht mit angezeigt.

bei Form2.show wird es mit angezeigt.

Und das Form2 steht immer bei Top 1 und Left 1. Also oben links in der Ecke,
egal was ich bei Form2.Position einstelle

jaenicke - So 18.09.11 14:16

Das hatte ich nicht ausprobiert. Dann musst du danach noch Visible auf True setzen. Siehe Anhang.

Josef-B - So 18.09.11 15:32

Ja das geht jetzt:

Delphi-Quelltext

1:
2:
3:
4:
5:

Form2 := TFForm2.create(self);
ShowWindow(Form2.Handle,SW_SHOWNoActivate);
Form2.Visible := true;
Form2.edit1.text := 'Daten werden geladen';
application.processmessages;

Ich hatte das edit1.text := 'blabla' zuerst im oncreate von Form2,
da hat er das Tedit nicht angezeigt.

Vielen Dank.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!