Formular (Zur Laufzeit erzeugt) bring die Mainform in den Vordergrund

[Hobbycoder]

Hi,

ich hab folgendes Problem. Ich erzeuge eine Terminform zur Laufzeit, weil der Benutzer in der Lage sein soll, dass er mehrere Termin gleichzeitig geöffnet halten kann. In diese selbst erzeugten Formularen können Unterformulare angezeigt werden. Da diese aber im Vordergrund bleiben sollen, und die Bearbeitung im Termin erst weitergehen kann, wenn dieses Unterformular geschlossen wird lasse ich die Modal anzeigen.
(Auch diese Unterformulare werden dynamisch erzeugt, wo das schon mein Fehler sein könnte).
Werden nun die erzeugten Unterformulare mit ShowModal aufgerufen, springt die Mainform über das Terminforumlar, das Unterformular wird korrekt angezeigt, und nach Schließen des Unterformulars kommt die Terminform wieder in den Vordergund. Funktioniert einwandfrei, sieht aber bescheiden aus.

Jetzt gerade überlege ich, dass es ja nur ein Modals Fenster in einer Anwendung geben kann. Macht also überhaupt sinn, dass ich es dynamisch erzeuge? Denn sonst könnte ich es ja auch gleich automatisch erzeugen lassen, da es ja eh nur einmal angezeigt werden kann, egal wieviele Terminfenster geöffnet sind.

Es wäre natürlich auch superschick, wenn jedes Terminfenster quasi sein eigenes Modales Unterformular haben könnte, was eben dann den Fokus bekommt, wenn die Terminform selbst auch im Vordergrund wäre. Wobei das möglichweise nicht geht. Ich könnte natürlich auch einen Frame im Terminfenster einblenden/dynamisch erzeugen, was ggf. besser aussehen würde, sofern ich dem einen Rahmen verpasse.
Gibt es da irgendwelche Möglichkeiten, die ich nutzen könnte? Oder irgendeine andere Idee, wir ich das gewünscht realisieren könnte?

[jaenicke]

Du musst kein modales Fenster benutzen, damit ein Fenster vor einem anderen bleibt. Dafür kannst du ganz simpel den HWNDPARENT setzen:

Delphi-Quellcode:

SetWindowLong(SecondForm.Handle, GWL_HWNDPARENT, FirstForm.Handle);
// Das bewirkt, dass SecondForm immer vor FirstForm bleibt.

Das kannst du auch mit mehreren "Fensterduos" parallel machen.

[himitsu]

PopupParent
PopupMode

[Hobbycoder]

Zitat von himitsu:

PopupParent
PopupMode

Danke, das hilft schon gut.

Zitat von jaenicke:

Du musst kein modales Fenster benutzen, damit ein Fenster vor einem anderen bleibt. Dafür kannst du ganz simpel den HWNDPARENT setzen:

Delphi-Quellcode:

SetWindowLong(SecondForm.Handle, GWL_HWNDPARENT, FirstForm.Handle);
// Das bewirkt, dass SecondForm immer vor FirstForm bleibt.

Das kannst du auch mit mehreren "Fensterduos" parallel machen.

Danke, das ist mega. Genau das, was ich mir gewünscht habe

[Hobbycoder]

Hi,
soweit funktioniert das perfekt, nur ein Problem taucht plötzlich auf: Die Fenstergröße verändert sich von allein.
Das Fenster in der IDE ist Height: 599 und Width: 568.
Nach dem es in der Methode (s.unten) erzeugt und angezeigt wird ist Height: 1014 und Width: 1920.
An keiner Stelle wird die Größe der Form im Code bearbeitet oder sonst was. Lediglich die Position.
Woran könnte das liegen? Ich könnte zwar dann im Code der Zielform die Größe anpassen, jedoch möchte ich ungerne statische Information fest im Code verankern.

Delphi-Quellcode:

  if not Assigned(frmKundendaten) then
  begin
    frmKundendaten:=TfrmKundendaten.Create(self);
    frmKundendaten.OnMoved:=OnKundendatenWindowMoved;
    frmKundendaten.OnFinished:=OnKundendatenWindowsFinished;
    frmKundendaten.lblKundenname.Caption:=edtKundenname.Text;
    SetWindowLong(frmKundendaten.Handle, GWL_HWNDPARENT, Self.Handle);
    frmKundendaten.Show;
    frmKundendaten.Left:=self.Left+grpKundendaten.Left+grpIntern.Left+btnKundendaten.Left;
    frmKundendaten.Top:=self.Top+grpKundendaten.Top+grpIntern.Top+btnKundendaten.top+(btnKundendaten.Height*2);
  end;

[jaenicke]

Du könntest z.B. einen Haltepunkt auf OnResize setzen, um zu sehen, wo die Änderung herkommt.

Wenn das nicht klappt (während csLoading wird das Event noch nicht ausgelöst, aber ich denke nicht, dass das der Fall ist), kannst du SetBounds überschreiben und dort den Haltepunkt setzen.

Du kannst im Haltepunkt in den Eigenschaften als Bedingung die Größe prüfen, damit der Haltepunkt nicht so oft ausgelöst wird, wenn das zu oft ist, um es gut zu debuggen.

[Jasocul]

Prüfe mal im Objektinspektor, was du dort bei der Eigenschaft "Position" stehen hast. Vermutlich musst du das auf poDesigned umstellen.

[Hobbycoder]

Zitat von Jasocul:

Prüfe mal im Objektinspektor, was du dort bei der Eigenschaft "Position" stehen hast. Vermutlich musst du das auf poDesigned umstellen.

Danke, das war es. Ich hatte es auf poDefault stehen und dachte in meinem jugendlichem Leichtsinn, dass würde reichen