Setzt du die Attribute erst zur Laufzeit ?
Die von der ersten Form (die mit der falschen Größe gezeichnet wird) nicht. Die Größe der zweiten Form wird hier gesetzt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2 := TForm2.Create(Self);
try
Form2.Height := Height;
Form2.Width := Width;
Form2.Top := Top;
Form2.Left := Left + 20;
Form2.ShowModal;
finally
Form2.Free;
end;
end;
Der Rest kommt ebenfalls aus der
DFM.