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

[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