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;