Form mit bsSingle unter Aero zu groß

[uligerhardt]

Zitat von -187-:

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.